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The APPLE Computer is one of the world’s most 
popular computer systems. Its lightweight, desktop design 
and powerful version of the BASIC programming language 
place it at the forefront of the new wave of personal 
computers for home, school and office. 

Anything but a toy, its hardware configuration and 
system software make it a highly useful toolin the business 
environment and the classroom as well as for practical jobs 
around the home. 

In fact, the system software is so flexible and versatile 
that the need fox this book became apparent. There are so 
many computer tasks which can be accomplished with the 
APPLE system that an introduction to the many techniques 
is needed. 

Software programs are what make a computer do what 
you want. This book is written for those newcomers and 
beginners, as well as advanced novices and student 
programmers, who would like to tap the vast resources 
available in the APPLE computer package. This book, it is 
hoped, will guide and instruct and provide insights into the 
many ways the BASIC language built into the APPLE 
computer can be put to use. 

This book is a companion volume to 33 New APPLE 
Computer Programs for Home, School & Office. 


— Fred White 
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Introduction 


This book is designed for beginners and newcomers, as 
well as advanced novices and student programmers, who 
have read a book on how to program in BASIC and now 
need some good ideas. 


This handbook gives you 101 different programs which 
will stand alone and run by themselves for learning pur- 
poses and can be incorporated into larger sets of instruc- 
tions. 


These are designed to be typed in, just as you find them 
in the book, with no other programming needed. You 
don’t have to be a computer programmer to use these 
pieces of software. 

The book can be used by newcomers and beginners as 
well as old-timers in the programming game. 


Amidst our 101 tips are hundreds of secrets, shortcuts, 
tricks, hints, techniques and make-it-easier instructions, 
each designed to make you a more versatile programmer 
and to make your programming effort lighter. Use this 
book to stimulate your thinking about how to approach 
various software problems. Use it to get good ideas for 
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new and different approaches to all your programming 
goals. 


Very few REMs 

As you read through the 101 programs in this book, you 
will notice very little use of REMarks. The author’s train- 
ing in writing BASIC-language computer programs re- 
quired a sharp editing pencil. Remarks and software ex- 
planations were out. Honing, fine-tuning and waste- 
trimming were in. Use of coding-form programming 
worksheets, such as the Universal BASIC Coding Form, 
published by ARCsoft Publishers, was in. The objective 
always was—an4d still is—to make the most efficient use 
of available memory. 

Even though they may be headed toward the same goal, 
no two programmers will write exactly the same list of 
BASIC program lines from scratch. I’m sure that as you 
load these into your Computer, you'll make 
modifications to suit your personal needs or interests. 
Exact wording of PRINT statements can be changed. Two 
and more programs can be combined into one grand 
scheme. Applications will vary. 

The author would like to hear of improvement ideas as 
well as suggestions for future volumes in this series. He 
may be contacted in care of ARCsoft Publishers, P.O. Box 
132, Woodsboro, MD 21798 USA. 


Standalone vs. subroutine 


All of the programs in this book can be used as portions 
of larger listings, as subroutines or GOTO objects. To do 
So, make appropriate changes to the first line (often 
numbered 10 in this book) and the last line of each pro- 
gram. If you wish to create a subroutine, remember that 
RETURN must be the last line of the subroutine. if you 
work one of these programs into a larger list as a 
subroutine, be especially careful of your memory 
(variable) labels. They must agree with your selection of 
labels for the main program. Also, be careful of line 
numbering. 

If you want to load more than one of these programs in- 
to your Computer at the same time, be sure to use 
different sets of line numbers for different programs. 


Other computers 

These programs will run on other microcomputer 
systems but you'll have to make minor modifications to 
the program lines in some cases. The graphics com- 
mands andsound _ statements, especially, will 
differ elsewhere. 
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Let’s start our Fun-N-Games section with instruction 
on how to simulate a slot machine on the screen of your 
APPLE! 

As with all the programs used as examples in this 
book, simply type this one in and RUN it. The APPLE will 
display, on your video screen, the name of this program 
and some simpie instructions. 

To simulate pulling the slot machine’s lever arm, 
press any key on the keyboard of your APPLE. 

By the way, be very careful in typing in the program. 
Note that line 100 is very long. Yes, all that goes in one 
program line! 

Be sure your line 90 has six sets of five asterisks 
each. Lines 500, 510 and 520 start with nine blank spaces 
before the first asterisk. Lines 500 and 520 have 16 
asterisks each. 

it is important that you include the calied-for blank 
spaces in lines 90, 100, 110, 500, 510 and 520. As you key 
in programs throughout this book, be sure you include all 
blank spaces where. called for. 


Program Listing 


10 HOME 

20 GOSUB 500 

30 PRINT:PRINT 

40 DATA 1,2,3,4,5,6,1,2,3,4,5,6 
50 FOR LL=1 TO 6 

60 GOSUB 300 

70 CS(LL)=G$ 

80 NEXT LL 


90 PRINT "!X¥4X% KHKKR KHHKH HHHHK 
KRHHEKK BHHKHMN 
100 PRINT "* "scS(1)3" * * "3CS(2) 
sh Oe * MSCS(3)5" * * NSCS(4) 
a x "scS(5)3" x xX ™sCS(6)3" Xx 
110 PRINT "¥X¥%% HHHKH KHHKHH HHHHX 
KHHEHH KHHHEKKN 
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120 PRINT:PRINT 

130 PRINT"TO PULL THE LEVER, PRESS ANY KEY" 
140 GET Q$ 

150 HOME:GOTO 20 

300 FOR L=l TO 6 

310 READ PS(L) 

320 NEXT L 

330 RESTORE 

340 R=INT(7*(RND(1))) 
350 IF R<l THEN 340 
360 GS=PS(R) 


370 RETURN 

500 PRINT " KH KHKKKKKKKKKRKKK HU 
510 PRINT " * SUPER SLOT-0 *" 
520 PRINT !" KHEKKKHKKKKKKKKKKH" 
530 PRINT CHRS(7) 

540 RETURN 


Here’s a quick way to add real dice to any fun pro- 
gram you are designing for your APPLE. 

This program rolls two dice and lets you see the 
results, as with real dice. This is especially useful in 
those games where it is important to see the value of 
each. 

The subroutine in lines 100-140 generates the 
necessary pair of random numbers. Lines 60, 70 and 80 
make the display you want. 

Note that lines 60 and 80 each have nine asterisks. 
Line 140 is RETURN and must be the last line in the pro- 
gram. 

After you type in and RUN the program, press any key 
on your APPLE’s keyboard to roll the dice. 


Program Listing 


LO HOME 
20 PRINT "TO ROLL TWO DICE, PRESS ANY 
KEY" 
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30 GET KS 

40 HOME 

50 GOSUB 100 

60 PRINT WHHKHKKHKKHMHKM 

70 PRINT "* "sDL3" * "SDR st x" 

80 PRINT WRHKHKKRHRHKHRKRHKMN 

90 PRINT:PRINT:GOTO 20 
100 DL=INT(7*(RND(1L))) 
110 IF DL<l THEN 100 
120 DR=INT(7*(RND(1))) 
130 IF DR<1l THEN 120 
140 RETURN 


Two dice not enough for your game? Here’s how to 
see four dice after a roll! 

Naturally, this program works just like the program in 
tip number two except that the FOR/NEXT loop in lines 
50-110 makes the APPLE roll and display four times rather 
than two times. If you need six, eight or ten dice on 
display, change the number two in line 50 to three, four or 
five. 


Program Listing 


10 HOME 
20 PRINT"TO ROLL FOUR DICE, PRESS ANY 
KEY" 
30 GET KS 
40 HOME 
50 FOR L=l1 TO 2 
60 GOSUB 200 
7O PRINT ""%#4AKRRKKKHE 
80 PRINT "* "sDLs" * "sDRst ¥" 
90 PRINT "XA KKKKKKKM 
100 PRINT 
110 NEXT L 
120 PRINT:PRINT:GOTO 20 


200 DL=INT(:7*(RND(1))) 
210 IF DL<l THEN 200 
220 DR=INT(7*(RND(1))) 
230 IF DR<l THEN 220 
240 RETURN 


Secret messages can be lots of fun! They often are 
composed of codes in which letters of the alphabet have 
been replaced by numbers. 

In this easy-to-use program, the computer generates 
a list of pseudorandom numbers and assigns one number 
to each letter of the alphabet. You use the numbers, in 
lieu of letters, to write notes to your friends. 

There is very little chance of the same number being 
assigned to two different letters because available 
numbers range from zero to 999. 

When typing this program into your APPLE, be sure 
to separate the alphabet letters with commas in line 100. 

By the way, note the nice two-column screen printing 
format! Line 50 does that. 


Program Listing 


10 HOME 

100 DATA A,B,C,D,E,F,G,H,1,3,K,L,M,N, 
0,P,Q0,R,5,1,U,V,W,X,Y,Z 

200 FOR N=l TO 13 

210 C=INT(1000*(RND(1))) 

220 READ LS 

230 D=INT(1000*(RND(1))) 

240 READ JS 

250 PRINT LS3" "sC,KSs" "sD 

260 NEXT N 


Now here’s something really different in a secret 
message. The computer asks you for your message, 
removes it from the screen, stores it, and then displays it 
backwards! 

Yes, we said SDRAWKCAB. It’s like looking through 
your TV tube from behind. 

Make up your messages as whole sentences. For in- 
stance: | WENT TO THE STORE comes out EROTS EHT 
OT TNEW I. To clear the old message, and put in a new 
one, press any key on the APPLE keyboard. 


Program Listing 


10 HOME 

20 INPUT"WHAT IS THE MESSAGE ? "3AS 
30 L=LEN(AS) 

40 FOR J=L+1 TO 1 STEP -1 

50 BS=BS+MIDS(AS,J,1) 


60 NEXT J 

70 HOME:PRINT BS 

80 GET CS 

90 IF CS=""" THEN 80 


100 CLEAR:GOTO 10 


© step Up 


From time to time it’s useful to be able to make the 
computer display ever-larger mumbers in sequence. 
Here’s how to step up numbers. 

The subroutine in lines 500-540 generates a one-digit 
number. That numerical value is converted to a string and, 
at line 110, added to whatever already exists as K$. Thus, 
K$ grows by one digit at a time. 

This program actually is a little game to test your 
ability to recall long strings of numbers. It starts with a 
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single digit and keeps presenting ever-longer numbers 
until you no longer can recall what you have just seen on 
the screen. 

When you reach a number you cannot recall, the 
computer will give you only five tries. After that it ends 
the game and reports your score. If you wish to end the 
game, enter X instead of a number. 

Line 130 controls the length of time of display of the 
number to be recailed. For more time, increase the 
number 500 in line 130. For less time, decrease the 
number 500. 

At the end of the game, the computer reports the 
length of your last attempt. 


Program Listing 


10 HOME:CLEAR 

20 PRINT CHRS(7) 

30 PRINT"HOW LONG A NUMBER CAN YOU 
RECALL ?" 

40 PRINT"WATCH CLOSELY..." 

50 FOR T=l TO 1500:NEXT T 

100 GOSUB 500 

110 KS=KS4NS 

120 PRINT:PRINT KS 

130 FOR T=l TO 500:NEXT T 

140 HOME:A=A+1 

150 IF A=6 THEN 400 

160 PRINT"THIS IS YOUR ATTEMPT NUMBER " 

2A 

9 

170 INPUT" WHAT WAS THAT NUMBER ?"3G$ 

180 IF GS="X" THEN 400 

190 IF GS=KS THEN 300 

200 PRINT"WRONG. TRY AGAIN." 

210 GOTO 120 

300 PRINT:PRINT"YES, "sKS;" WAS THE NUMBER" 

310 PRINT"NOW TRY A LONGER ONE..." 

320 FOR T=1 TO 2000:NEXT T 

330 A=@:GOTO 100 

400 HOME:PRINT CHRS(7) 

410 PRINT"YOU GOT OUT AS FAR AS ":D 

>" DIGITS" 


420 PRINT:PRINT"THANKS FOR TRYING" 
430 END 

500 N=INT(10*(RND(1))) 

510 IF N<l THEN 500 

520 NS=STRS(N) 

530 D=D+l 

540 RETURN 


80x Score 


To dress up scores during and at the end of a game 
program, use this method of putting those scores ina 
box. The box around the score will highlight it and jazz up 
your video display. 

The program here has a temporary substitute for 
lines 10-40. Normally, you would obtain player’s name and 
score from some larger game program you already have 
on hand, or are writing. Line 20 gets from you a name and 
stores it in N$. Line 30 gets a score and stores it in S. If 
lines 50-250 were a subroutine to a larger program, you 
would need a RETURN at line 110. 

To try the highlighting technique, type in this pro- 
gram just as it is here. All of it, from line 10 through line 
250, and RUN it. You’ll see the name and score you give 
the APPLE displayed in a box on the video screen. 


Program Listing 


10 HOME 
20 INPUT "PLAYER'S NAME ? "3NS 
30 INPUT "PLAYER'S SCORE ? "3S 
4Q PRINT 


50 SS=STRS(S) 

60 LN=LEN(NS)+LEN(SS) 

70 LT=LN+14 

80 GOSUB 200 

90 PRINT "* "sSNSs""'S SCORE: "3SS;" *" 
100 GOSUB 200 
110 PRINT:PRINT:GOTO 20 


19 


120 END 

200 FOR L=1 TO LT 
210 ASS=ASS$4"¥" 
220 NEXT L 

230 PRINT ASS 

240 AS=" " 

250 RETURN 


S$ Sound Off 


You can make your APPLE computer beep on com- 
mand! 

Use the instruction PRINT CHR§$(7) in a program line, 
such as we have done in line 40 here. The APPLE will 
beep! 

Insert PRINT CHR$(7) in a FOR/NEXT loop to make it 
beep repeatedly. We’ve done that here to make it beep 10 
times. 


Program Listing 


10 HOME 

20 FOR L=1 TO 1O 
30 PRINT "BEEP" 
40 PRINT CHRS(7) 
50 NEXT L 


say Goodbye, Computer 


Kids, relatives and neighbors really go bananas when 
your computer talks directly to them via its video screen. 
So, the finishing touch on your programs should be a 
ByeBye statement from the computer. It'll be like the 
cherry atop an ice cream sundae. 

We have two partial programs here. in the first, the 
computer asks if you want to try again. If you say no, it 
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says it will stay alert for more enemies. Then it asks you 
to turn it off, to conserve electricity. 

Lines 470-600 are the goodbye section of the pro- 
gram. By the way, line 510 is a trap to catch any answer 
which might be neither yesnor no.Line 560 causes the 
computer to ring its bell five times. 

In our second program, the computer thanks you for 
playing. Lines 840-890 are the goodbye section. 

Both of these programs, as reproduced here, are 
complete and can run alone. Or they would make good 
subroutines in a larger set of BASIC instructions. To use 
them as subroutines, you must adjust variable names and 
line numbers to match those available in your larger pro- 
gram. 

Try typing each of these into your APPLE. They'll 
RUN alone and show you how to make your computer say 
goodbye. 


Program Listing 


100 PRINT "MAIN PROGRAM STARTS HERE" 
470 PRINT CHRS(7) 
480 INPUT "DO YOU WANT TO TRY AGAIN"s:L$ 
490 IF LEFTS(LS,1)="N" THEN GOTO 520 
500 IF LEFTS(LS,1)="Y" THEN PRINT 
"OKAY, STANDBY...":GOTO 100 
510 PRINT "PLEASE ANSWER YES OR NO" 
-<GOTO 480 
520 PRINT "OKAY" 
530 PRINT "YOU BLASTED A TOTAL OF " 
-Q3'' CYLONS" 
540 PRINT:PRINT "IF MORE CYLONS TURN UP, 
I WILL SOUND OFF" 
550 PRINT "LIKE THIS..." 
560 FOR J=1 TO 5:PRINT CHRS(7):NEXT J 
570 PRINT:PRINT "NOW, PLEASE TURN ME OFF" 
580 PRINT"I NEED SOME REST. THANK YOU." 
600 END 
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Program Listing 


10 HOME 

20 Q=55 

100 PRINT:PRINT "MAIN PROGRAM STARTS HERE" 
840 PRINT CHRS(7) 

850 INPUT "DO YOU WANT TO PLAY AGAIN ?'"3XS 
860 IF LEFTS(XS,1)="Y" THEN GOTO 100 

870 PRINT:PRINT "OKAY. THANKS FOR PLAYING." 
880 PRINT "YOUR TOTAL SCORE IS "3Q 

890 END 


Of course, once you know a player’s batting average 
it still might need some interpretation. In this program, 
the computer takes a look ait a batting average and makes 
a comment. 

Remember that this listing, starting here with line 
800, is a partial program to be tacked on the end of a 
longer game. Note that, at 800, you already have values for 
G (number right) and E (number of tries). Line 810 converts 
those raw numbers to a batting average (H). 

Then, the computer takes that batting average, 
stored in H, and compares it with values shown in lines 
830 to 870. Depending upon the value of H, a slogan is 
selected by a jump to one of the lines 880 to 950. 

By the way, check line 880. You’ll see a special 
epitaph for players with batting averages above 900. 


Program Listing 


10 HOME 

700 G=55:E=100 

800 PRINT "YOU GOT "3sGs3" RIGHT IN " 
sEs" TRIES" 

810 H=(G/E)*1l000:INT(H):PRINT "BATTING 
3H 

820 PRINT "YOU ARE..." 
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830 IF H<100 THEN GOTO 910 

840 IF H<300 THEN GOTO 9220 

850 IF H<500 THEN GOTO 930 

860 IF H<700 THEN GOTO 940 

870 IF H<900 THEN GOTO 950 

880 PRINT"QUALIFIED FOR THE HALL OF FAME" 
sGOTO 960 

910 PRINT"VERY NEAR THE BOTTOM OF THE 
BARREL" :GOTO 960 

920 PRINT"POOR" :GOTO 960 

930 PRINT"AVERAGE" :GOTO 960 

940 PRINT" TOP NOTCH" :GOTO 960 

950 PRINT'DAMN NEAR PERFECT [" 

960 PRINT" YOUR BATTING AVERAGE IS "$H 

970 END 
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Once you know the number of times you were right 
andwrong ina game,as in Tip Number 20, it’s fun to 
convert those raw numbers to a batting average. Numbers 
right and numbers wrong take on a new meaning when 
changed to a batting average. Folks seem to be able to 
understand a batting average better. 

Our program, starting at line 900, is a partial listing 
designed to be tacked onto the end of your longer game 
program to display the final results of play. It will show 
the number of tries, number of right answers, percentage 
right, and batting average. 

You'll want to test load this program so add lines 10 
and 800 as shown. Line 800 will give you the R and T 
values you'll need going into the program at line 900. 


Program Listing 


10 HOME 

800 R=55:T=100 

900 PRINT R;" RIGHT" 

910 PRINT “IN "“"sT3" TRIES" 
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920 D=R/T:P=100*D:B=10*P 
930 PRINT "THAT'S "3P3" PERCENT" 
940 PRINT "BATTING "3B 


Mystery Clues 


Want to create your own murder mystery? Figure out 
whodunit and write your program backwards from there. 
When your players make wrong guesses, give them tan- 
talizing clues. 

Here’s a short program which you can load into your 
computer in a matter of minutes. Key it in and try it out. It 
shows how you can add clues to your mysteries. 

For simplicity, we assume Nere the Butler did it. Note 
that, in line 20, we are making him equal to X$. At line 30, 
the computer stops to ask you whom you think did it. Your 
answer is recorded in A$. 

In line 40, your answer, lodged in A$, is compared 
with the computer’s already-certain knowledge that the 
Butler did it. AS is compared with X$. If they agree, and 
only if they agree, the computer displays the message, 
“You guessed it.’ If you got it right, things will end right 
there. 

If, however, you missed it, program execution (sorry 
about using that word in a murder mystery!) drops to line 
50 where we hear the computer, ‘‘Clue: servant.” After 
deftly dropping that clue, the computer moves back to 
line 10 and runs through. the whole affair another time. It 
will keep running through it until you answer, “Butler,” in 
response to its question in line 30. 


Program Listing 


10 HOME 

20 XS$="BUTLER" 

30 INPUT "WHODUNIT ?"3AS 

40 IF XS=AS THEN PRINT "YOU GUESSED IT" 
:GOTO 60 

5O PRINT "CLUE: SERVANT" :GOTO 10 

60 END 


60-Second Timer 


A one-minute timer can be very handy for fun-n- 
games. This easy-to-use clock “ticks” as it counts off 
seconds up to 60. When it reaches 60 seconds, it rings an 
alarm. 

The number of seconds counted can be changed by 
changing the number 60 in line 20. 

The clock can be calibrated by changing the number 
750 in line 50. Line 50 is a time-delay loop set for approxi- 
mately one second. 

Lines 70-90 provide a rapid burst of five beeps when 
the clock reaches 60 seconds. To change the length of 
this alarm, change the number 70 in line 5. 


Program Listing 


10 HOME 

20 FOR T=1 TO 60 

30 PRINT CHRS(7) 

4Q PRINT T$;" SECONDS" 

50 FOR L=l TO 7502:NEXT L 
60 NEXT T 

70 FOR E=1 TO 5 

80 PRINT CHRS(7) 

QO NEXT E 


Vath Flasher 


Here’s the basic routine (no pun intended) for an educa- 
tional flash-card program. This one is bare-bones, no 
frills. You can dress it up with more colorful right-n-wrong 
messages, opening and closing billboards, etc. You could 
even make it keep score and present a “batting average”’ 
at the end of its run. 

Here’s how it works: 

Lines 10- 90 determine which type of math you wish to 
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do. Lines 50-80 move program action to the appropriate 
group of lines further along in the program. 

Lines 200-280 handle addition. Lines 300-390, subtrac- 
tion. Lines 400-480, multiplication. Lines 500-590, divi- 
sion. 

For example, look at lines 200-280. Two separate ran- 
dom numbers are generated (lines 200 and 210). The ran- 
dom numbers are labeled P and Q. At line 220, the pro- 
gram uses P and Q and asks you to add them together. 
Line 230 waits for and accepts your answer. 

Line 240 clears old, unwanted words from the screen to 
reduce confusion. At line 250, the program makes the 
right or wrong decision, using the powerful 
IF‘THEN statement. Line 270 prints the correct 
answer. 

Program execution for subtract (lines 300-390), multiply 
(lines 400-480), and divide (lines 500-590), are similar ex- 
cept for line 320 in subtraction and line 520 in division. 

We make the assumption that it is not desirable to have 
negative numbers as results of subtraction. That is, we 
want only subtraction problems with results of zero, one, 
two, three, or higher. We want no problems which would 
result in answers below zero such as -1, -2, -3, and so 
forth. So, line 320 tests P and Q, before presenting the 
problem on the screen. If they will result in a negative- 
number answer, then the program returns to lines 300-310 
for two new numbers. 

in division, we want whole-number answers. That is, we 
want answers like 2 or 11 or 26. Not answers like 1.81 or 
9.75 or 21.3343. So, line 520 tests P and Q to make sure 
their dividend will be a whole number. If not, the program 
goes back to line 500 and line 510 for two new numbers. 


Program Listing 


10 HOME:PRINT"DO YOU WANT TO" 

20 PRINT"ADD" : PRINT" SUBTRACT" 

30 PRINT"MULTIPLY'"'s PRINT"DIVIDE" 
40 PRINT :INPUT"WHICH ?"3;BS 

50 JF BS="ADD" THEN GOTO 200 

60 IF BS="SUBTRACT" THEN GOTO 300 


[IF BS="MULTIPLY" THEN GOTO 400 
TF BS="DIVIDE" THEN GOTO 500 
GOTO 40 

P=INT(10*(RND(1))) 
Q=INT(10*(RND(1))) 
PRINT:PRINT"ADD ";Ps3" PLUS "3:Q 


INPUT R 
HOME 
IF R=P+Q THEN PRINT "CORRECT" :GOTO270 


PRINT "WRONG" 

PRINT Ps" PLUS "3Q5" EQUALS "s3P+Q 
FOR LL=l TO LOOO:NEXT LL 

PRINT:GOTO 200 

P=INT(1LO*(RND(1))) 
Q=INT(LO*(RND(1))) 

IF P-Q<@ THEN GOTO 300 

PRINT:PRINT" SUBTRACT "3;Q3" FROM "3P 
INPUT R 

HOME 

IF R=P-Q THEN PRINT "CORRECT" :GOTO 380 
PRINT’ WRONG" 

PRINT P3" MINUS "3Q3;" EQUALS ";P-Q 
FOR LL=l TO LOOO:NEXT LL 

PRINT:GOTO 300 

P=INT(10*(RND(1))) 
Q=INT(10*(RND(1))) 
PRINT:PRINT"MULTIPLY "3P3" TIMES " 


HOME 

IF R=P*Q THEN PRINT "CORRECT" 
:GOTO 470 

PRINT" WRONG" 

PRINT Ps" TIMES "303" EQUALS "3P*Q 
FOR LL=1 TO LOOO:NEXT LL 
PRINT:GOTO 400 
P=INT(100*(RND(1))) 
Q=INT(1LO*(RND(1))) 

IF Q<l THEN GOTO 510 

IF P/Q <> INT(P/Q) THEN GOTO 500 
PRINT "DIVIDE ";P;" BY "30 

INPUT R 


2/ 


550 HOME 

560 IF R=P/Q THEN PRINT "CORRECT" 
:<GOTO 580 

570 PRINT "WRONG" 

580 PRINT P;" DIVIDED BY ";Q;" EQUALS " 
sP/Q 

585 FOR LL=1 TO 1000:NEXT LL 

590 PRINT:GOTO 500 


Here’s how to sort a set of scores. Any numbers can 
be used. Zero is assumed to be lower than any positive 
number and a negative number is lower than zero. 

Key in aS many numbers as you like. Then key a zero 
when you want your APPLE to compute final results. Ob- 
viously, a zero cannot be in the set of numbers you are 
sorting since we use zero to get out of the input loop. 

At the end of the RUN, the computer will tell you 
which number is lowest and which is highest. 


Program Listing 


10 HOME 

20 INPUT"TYPE IN A SCORE":N 
30 IF N=@ THEN 100 

40 S=S+l 

50 IF S=1 THEN LN=N:HN=N 

60 IF N<LN THEN LN=N 

70 IF N>HN THEN HN=N 

80 FOR L=1 TO 5 

90 SOUND=PEEK (-16336) 
100 NEXT L 
110 GOTO 10 
120 HOME 
130 PRINT"LOW NUMBER IS "3LN 
140 PRINT 
150 PRINT"HIGH NUMBER IS "3HN 
160 END 


Sample Run 


RUN RETURN 

TYPE IN A SCORE 
BEEP 22 RETURN 
BEEP 55 RETURN 
BEEP 77 RETURN 
BEEP 11 RETURN 

p RETURN 


LOW NUMBER IS 11 
HIGH NUMBER IS 77 


Put your name up in lights! Or, at least, on the video 
display screen of your APPLE computer. 

This short program creates a box on the screen and 
puts a name you have specified into that box. The name is 
highlighted. 

You can change what the box is composed of by 
changing the asterisks in lines 60, 100 and 120. 


Program Listing 


10 HOME 
20 INPUT"WHAT IS YOUR FIRST NAME ? "3NS 
30 LN=LEN(NS) 
40 LT=LN+4 
50 FOR L=l TO LT 
60 ASS=ASS+'#" 
70 NEXT L 
80 PRINT ASS 
90 ASS="" 
100 PRINT "* "sNS 3" ¥" 
110 FOR L=l1 TO LT 
120 ASS=ASS4!%" 
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130 NEXT L 

140 PRINT ASS 

150 ASS="" 

160 PRINT:PRINT:GOTO 20 


Here’s a different sound effect for your game pro- 
grams. This brief set of program lines causes your APPLE 
to present a continuous audible buzz with a sharp beep 
every second. 

You can set the time faster or slower by changing the 
number 100 in line 50. To make the clock run slower, in- 
crease the number 100 or to speed up the clock, decrease 
the number 100 in line 50. 


Program Listing 


10 HOME:PRINT CHRS(7) 
20 PRINT TAB(10) "AUDIBLE TIMER" 
30 PRINT: INPUT"HOW MANY SECONDS DO 
YOU WANT "3S 
40 FOR T=1 TO S 
50 FOR L=1 TO 100 
60 BZ=PEEK(-16336) 
70 NEXT L 
80 PRINT CHRS(7) 
90 NEXT T 
100 PRINT"TIME IS UP" 
110 PRINT:PRINT"TO GO AGAIN, PRESS ANY 
KEY" 
120 GET KYS 
130 GOTO 10 


This is a variation on the previous timer program. 
This set of instructions causes your APPLE computer to 
make an interesting rapid continuous clock-style tick with 
a beep every second. 

Adjust the beep time by increasing or decreasing 
the number eight in line 20. 


Program Listing 


10 HOME 

20 FOR T=1 TO 8 

30 FOR L=1 TO 2 

40 BZ=PEEK(-16336) 

50 NEXT L 

60 FOR L=1 TO 1OO:NEXT L 
70 NEXT T 

80 PRINT CHRS(7) 

90 GOTO 20 


Traditional 


Here’s a simple, brief way to roll and display results 
for two dice. 

Lines 100-110 get a random number between 1 and 6 
and store it in A. Lines 200-210 get another random 
number from 1 to 6 and store it in B. 

Lines 300-310 print the contents of A and B along 
with a suitable message. Lines 400-430 cause the com- 
puter to await the press of any key on its keyboard. When 
a key is pressed, dice are rolled and new results 
presented on the video display. 


Program Listing 


10 HOME 
100 A=INT(10*(RND(1))) 
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110 IF A<l OR A>é6é THEN GOTO 100 
200 B=INT(10*(RND(1))) 

210 IF B<l OR B>6é THEN GOTO 200 
300 PRINT "FIRST DICE: "3A 

310 PRINT "SECOND DICE: "3B 

400 X=PEEK(-16384) 

410 POKE -16368,9@ 

420 IF X<128 THEN GOTO 400 

430 PRINT:GOTO 100 


Keeping Game Scores 


Writing a computer football game? Spelling bee? 
Cave adventure? No matter what kind of fun you are 
preparing, you'll need a way to keep score. Here’s how. 

The wealthy English duke has just been killed in our 
little mystery game. In lines 10 through 160 of 
our program listing, below, you play the game, attempting 
to find out whodunit. 

The trick here is in the scorekeeping. Note line170. If 
you guessed correctly in response to the queryinline 160, 
at line170 thecomputer will give you credit by adding one 
point to your score stored in memory location R. It does 
that by comparing your line 160 answer stored in P$ with 
the correct answer stored in A$. 

If you blew it and guessed wrong, the program drops 
below line170to line 180 where it increases your “wrong 
score” by adding one point to W. 

If you got a W+1atline 180, the program moves back 
toline100 and gets you to try again. If you scored a victory 
and got an R+1 atline1/70,the program jumps to line 200 
where It stops to display your total right and wrong score. 
After that, it’s back to line 20 for a complete new run- 
through. 
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Program Listing 


HOME 
PRINT CHRS(7) 
S=INT(10*(RND(1))) 
IF S>6 THEN GOTO 30 
IF S<l THEN GOTO 30 


FOR L=1 TO §S 

READ AS 

NEXT L 

RESTORE 

PRINT"WHO KILLED THE DUKE ?" 


READ BS,CS,DS,ES,FS,G5$ 

RESTORE 

PRINT"WAS IT THE..." 

PRINT BS,CS,DS,ES,FS$,G$ 

PRINT CHRS(7) 

INPUT "WHODUNIT ?"3;P$ 

IF AS=PS THEN R=R+1L:PRINT CHRS(7) 
sPRINT CHRS(7):PRINT"RIGHT !":GOTO 200 
PRINT'"NO ! NOT THE "3PS$:W=W41 
sPRINT:GOTO 100 

PRINT 

PRINT "YOUR SCORE IS..." 

PRINT R;" RIGHT AND "3W;" WRONG" 
PRINT:GOTO 20 

DATA BUTLER,NANNY,GARDNER, BURGLAR, SON, 
WIFE 


Winner’s Message 


Flashing lights. Ringing bells. This message to hail a 


win in a game really attracts attention! 


Use it atan appropriate pointin your game. It will print 


the message YOU WIN on the video screen with a solid- 
bar underline, and ring a bell. The message flashes. The 
underline does not. 


Here’s how it works: lines 30 to 80 print the message. 
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Lines 90 to 110 display the underline bar. Line 120 rings 
the bell. 

The number 25 in line 20 controis the number of 
flashes and bell rings. You may change that number if you 
like. 

You may change the message, if you like. Use the let- 
ter and number table you see here to select a new 
message. The message line is 40 spaces in memory /loca- 
tions 1192 to 1231. The underline is in locations 1320 to 
1359. Lengthen the underline bar by changing the range in 
line 90, up to a maximum of L= 1320 TO 1359. 


A 65 T 84 
B66 U 85 
C 6/7 V 86 
D 68 W 87 
E 69 X 88 
F 70 Y 89 
G 71 Z 90 
H 72 

I 73 

J 74 G6 48 
K 75 1 49 
L 76 2 50 
M 77 3 5] 
N 78 4 52 
0 79 5 53 
P 80 6 54 
Q 8l 7 55 
R 82 8 56 
S 83 9 57 


Change the number of bell rings and number of 
flashes by changing the number 25 in line 20. This pro- 
gram will make a good subroutine in a larger set of in- 
structions. . 


Program Listing 
10 HOME 


20 FOR N=l TO 25 
30 POKE 1208,89 
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40 POKE 1209,79 
50 POKE 1210,85 
60 POKE 1212,87 
70 POKE 1213,73 
80 POKE 1214,78 
90 FOR L=1335 TO 1343 

100 POKE L,47 

110 NEXT L 

120 PRINT CHRS(7) 

130 NEXT N 

140 HOME 


Ring The Bell 


Here’s another, slightly different version of our 
popular APPLE bell ringer program. This one allows you 
to set a time delay between rings. 

We use the handy PRINT CHRS(7) instruction to do 
the actual ringing. The N value in line 20 sets the actual 
number of repeat rings. (The rings might better be 
described as beeps.) 

The L value in line 40 establishes the time delay be- 
tween rings. To insert more time, increase the number 100 
in line 40. To shorten the time between beeps, lower the 
number 100 in line 40. 


Program Listing 


10 HOME 

20 FOR N=1 TO 5 

30 PRINT CHRS(7) 

40 FOR L=1 TO 100:NEXT L 
50 NEXT N 
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Question & A 


Here’s how to use the DATA statement, and the com- 
puter’s ability to,search for data, to create a Q&A. 

We put DATA in lines 20-130. It could be anywhere in 
the program. For instance, at the end at lines 400-510. 

The computer sees two items in each data line. Pro- 
gram lines 140 and 160 force the machine to take only 
odd-numbered data from the list. That is, S$ in line 180 is 
always the first piece of data in a data line. And C$ in line 
210 is always the second item in a data line. Line 230 
checks to see if you answered the line 220 question cor- 
rectly. 


Program Listing 


10 HOME 

20 DATA JANUARY, 31 

30 DATA FEBRUARY, 28 

40 DATA MARCH, 31 

50 DATA APRIL, 30 

60 DATA MAY, 31 

70 DATA JUNE, 30 

80 DATA JULY, 31 

90 DATA AUGUST, 31 
100 DATA SEPTEMBER, 30 
110 DATA OCTOBER, 31 
120 DATA NOVEMBER, 30 
130 DATA DECEMBER, 31 

140 R=1NT(100*(RND(1))) 

150 IF R>24 THEN GOTO 140 

160 IF INT(R/2)=R/2 THEN R=R-1 
170 FOR L=1 TO R 

180 READ § 

190 NEXT L 

200 PRINT "MONTH IS "3SS 

210 READ CS 

220 INPUT "HOW MANY DAYS "3DS 
230 IF DS=CS THEN PRINT "CORRECT" 

:GOTO 300 


240 
300 
310 
320 
330 


PRINT "WRONG" 

PRINT "NUMBER OF DAYS IS "3CS 
RESTORE 

PRINT 

GOTO 140 


Good for home self-testing as well as in the 


classroom. Place your computer in the corner and let it 
time your exams. 


After you press any key to start it, it prints a con- 


tinuously updated display of time, including minutes and 
seconds. 


Program Listing 


HOME : SP=16 

PRINT"EVENT TIMER" :PRINT 
PRINT"HOW MANY MINUTES" 

INPUT"TO THE END OF THE EVENT "3LT 
PRINT:PRINT"PRESS ANY KEY" 
PRINT"TO START TIMING" 

GET STS 

HOME 

C=C4+1 

IF C>(SP*LT*60) THEN 300 
MN=INT(C/SP/60) 
SC=INT((C/SP)-(60*MN) ) 

PRINT MNs" MINUTES",SC;" SECONDS" 
GOTO 110 

HOME:PRINT CHRS(7) 

PRINT" TIME IS UP" 

PRINT LT3" MINUTES HAVE PASSED" 
PRINT:PRINT"TO TIME AGAIN, PRESS 
ANY KEY" 

CLEAR:GET TAS 

GOTO 10 
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The 


Here it is. Where everybody started in micro- 
computer programming back in the Seventies. The first 
game ever played was a high-low guess-the-number 
routine. 

The computer selects a secret number. You try to 
guess it. The computer tells you whether or not you are 
too high, too low, or right on the number. 

Here’s how it works: the secret number can be zero 
to 1000. Line 100 generates a random number (the secret 
number) and stores it. Line 210 asks you to guess the 
number. 

Lines 300-310 decide if you are right or wrong. Line 
220 keeps track of the number of attempts. 


Original Hi-Lo Game 


Program Listing 


10 HOME:T=@. 

100 R=INT(1000*(RND(1))) 

200 PRINT CHRS(7) 

210 INPUT"GUESS THE NUMBER";B 

220 T=T+1:PRINT"THAT WAS TRY NUMBER "sT 

300 IF B>R THEN PRINT CHRS(7) 
sINPUT"TOO HIGH. GUESS AGAIN.";B 
s<GOTO 220 

310 OF B<R THEN PRINT CHRS(7) 
:INPUT"TOO LOW. GUESS AGAIN."3;B 
-<GOTO 220 | 

400 PRINT CHRS(7):PRINT CHRS(7):PRINT"YES t" 

410 PRINT Rs" IS THE NUMBER" 

420 PRINT" YOU GOT IT IN "sT3"™ TRIES" 

500 PRINT: T=@:GOTO 100 
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sometimes, it may seem to you as if the computer 
will never get to the result of a job. You understand the 
processing delay but your non-computer friends may not. 
They could be confused by the wait and think the com- 
puter is “broken.” 

To keep their minds off the slowness, give them 
something to look at while the computer is “thinking.” 

The added, extra lines, numbered 50, 60, 70 and 80, 
take up more processing time but make for less confu- 
sion. Computing may take a bit longer but your fun will be 
increased. 

If you delete lines 50-80 you'll see how the program 
runs faster but the blank screen is confusing. 


Program Listing 


10 HOME 

20 INPUT"GIVE ME A NUMBER"S;N 

30 FOR L=1 TON 

40 X=X+b 

50 FOR T=1 TO 100:NEXT T 

60 HOME 

70 FOR T=l TO 100:NEXT T 

80 PRINT "I AM THINKING" 

90 NEXT L 
100 HOME:PRINT CHRS(7) 
110 PRINT"I HAVE THE ANSWER" 
120 PRINT'THE TOTAL OF ALL NUMBERS" 
130 PRINT"FROM 1 TO "sNs" IS "3X 
200 PRINT:CLEAR:GOTO 20 


Number-Error Trapping 


Good programs, those which are well written, need 
error trapping. \t’s a technique for making sure persons 
communicating with the computer don’t key in inap- 
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propriate data or make mistakes which would cause com- 
putation problems for the computer. 

For instance, see the example program here. In line 
10 the computer asks for a number. In line 20, if the 
number is too low, it says so and goes back to line 10 to 
repeat its request. 

At line 30, if the number received ai line 10 is too 
large, it says so and goes back to line 10 for a better 
choice. 

The result is only printed at line 40 when a satisfac- 
tory number has been keyed in back at line 10. 

You can set your own limits by changing the 10 in 
line 20 and the 100 in line 30. 


Program Listing 


> HOME 
10 INPUT"GIVE ME A NUMBER"S$A 
20 IF A<1O THEN PRINT "TOO LOW":GOTO 10 
30 IF A>LOO THEN PRINT "TOO HIGH" 
>GOTO 10 
4Q PRINT A 


The same kind of error trapping is available for 
strings. Suppose the program, as in this example, asks at 
line 10 for a word. It is looking for YES or NO. If it gets a 
YES, then line 20 sees that it got what it wanted and 
moves operations along to line 190. 

If it gets a NO, then line 20 hasn’t received what it 
wants so program execution moves on to line 30. Here, at 
line 30, the program finds something useful and shoots 
operations down to line 200. 

If, however, neither YES nor NO were entered at line 
10, then neither lines 20 nor 30 would be satisfied so ac- 
tion would drop to line 40. Here, the error is trapped by 
commanding the operator to give one of the two correct 
answers. Then, at line 50, the operation is returned to line 
10 for a new try at the correct input. 
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Program Listing 


5 HOME 
10 INPUT"WANT TO PLAY AGAIN ?"3A§ 
20 IF AS="YES" THEN 100 
30 IF AS="NO" THEN 200 
4QO PRINT"PLEASE ANSWER ONLY YES OR NO" 
50 GOTO 10 
100 PRINT AS 
110 END 
200 PRINT AS 
210 END 


Here’s a handy use for the powerful LEFT$ instruc- 
tion. Make the computer decide whether you have 
answered yes or no to a question. 

The tesis in line 20 and 30 look at the first letter of 
your answer to the question in line 10. If the first letter is 
Y then line 20 shoots program action on to line 100. If the 
first letter of your answer is N, then line 20 does nothing 
and action drops to line 30 where the program jumps to 
line 300. 

If the first letter of your answer was neither Y nor N, 
then the program passes lines 20 and 30 and, at line 40, 
tells you that you must answer yes or no. Then line 50 
pushes action back to line 10 where the entire process 
Starts over. 

You only can answer with words starting with Y or N. 
Another word will be “trapped” out. 


Program Listing 


> HOME 
10 INPUT"WANT TO PLAY AGAIN ?"3AS 
20 IF LEFTS(AS,1)="Y"THEN 100 
30 IF LEFTS(AS,1)="N"THEN 200 
40 PRINT"YOU MAY ANSWER Y OR N OR 
YES OR NO" 
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50 GOTO 10 
100 PRINT "YES" 
110 END 
200 PRINT ™NO" 
210 END 


3U Categorizing 


A large quantity of numbers can be categorized and 
thereby cut down into a smalier quantity of numbers. See 
our example: it takes test scores and divides them into 
ranges labeled A, B, C, D, and F. 

The program assumes exam or test scores in a range 
of zero to 100. The letter grades include zero to 59, F; 
60-69, D; 71-79, C; 80-89, B; 90-100, A. 

Key in aS many scores as you like and then enter the 
letter X to stop the entry cycie. 

Lines 100-140 sort all scores into the A through F 
categories. Lines 150-170 sort highest and lowest scores. 
Line 200 finds mid-range and average scores. 


Program Listing 


10 HOME:CLEAR 

20 PRINT CHRS(7) 

30 PRINT "ENTER A GROUP OF SCORES" 
40 PRINT "FROM ZERO TO 100, ONE AT A 


TIME" 
50 PRINT "ENTER X AFTER LAST SCORE" 
60 PRINT: INPUT"SCORE = "3G$ 


70 IF GS="X" THEN 200 

80 G=VAL(GS) 

90 N=N+l] 
100 IF G<60 THEN F=F+1:GOTO 150 
110 IF G<70 THEN D=D+1:GOTO 150 
120 IF G<80 THEN C=C+1:GOTO 150 
130 IF G<90 THEN B=8+1:GOTO 150 
140 A=A+l 
150 IF N=l THEN L=G:H=G 
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160 IF G<L THEN L=G 

170 IF G>H THEN H=G 

180 S=S+G 

190 GOTO 60 

200 P=S/N:M=L+((H-L)/2) 

210 HOME:PRINT"THERE WAS A TOTAL OF" 
sNs'' SCORES" 

220 PRINT"RANGING FROM "sL3" TO "3H 

230 PRINT"MID-RANGE SCORE WAS "3M 

240 PRINT"AVERAGE SCORE WAS "3P 

250 PRINT:PRINT"TOTALS FOR EACH LETTER 
GRADE:" 

260 PRINT"A: "3A 

270 PRINT"B: "3B 

280 PRINT"C: "3C 

290 PRINT"D: "3D 

300 PRINT"Fs "3 

310 PRINT:CLEAR:GOTO 20 
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Look-Up Table 


You can use the computer asastandard _|look- 
up reference. This program, for photographers, gives filter 
factors for exposure corrections. 

The appropriate corrections are stored ahead of time 
in lines 260 to 360 and 430 to 540 for use later in the field. 

Serious photographers, amateur and pro, carry an 
assortment of lens filters in their bags. Lens filters absorb 
light so cameramen must make corrections when using 
them. 

The filter factor is used in making that correction. 
The photographer sets the exposure meter for the speed 
of the film in use without a filter. Then, he modifies the 
camera settings indicated by the meter. For instance, 
suppose the factor is 2 and the setting indicated by the 
meter is 1/125 second at f/11. The photographer opens the 
lens by one full f/stop to f/8. 

This computer program displays the proper f/stop 
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correction when factor is known or factor when correc- 
tion is known. 


Program Listing 


HOME 


PRINT"TO COMPUTE A NEW FILTER FACTOR" 


PRINT"FOLLOWING AN F/STOP CHANGE" 
PRINT"PRESS 1 AND RETURN" 

PRINT :PRINT"TO FIND HOW MUCH TO 
CHANGE THE F/STOP" 

PRINT"AFTER CHANGING FILTERS" 
PRINT" PRESS 2 AND RETURN" 

INPUT Z 

IF Z7<l OR Z>2 THEN GOTO 80 

ON Z GOTO 200,400 

HOME:PRINT CHRS(7) 

W=@ 

PRINT"YOU NEED TO COMPUTE A" 
PRINT" NEW FILTER FACTOR BECAUSE" 
INPUT"YOU HAVE CHANGED THE F/STOP 
BY +"sYS 

IF YS="1/3" THEN W=1.2 

IF YS="2/3" THEN We=l1.5 

IF YS="1" THEN W=2 


IF YS="1 1/3" THEN W=2.5 
IF YS="1 2/3" THEN W=3 
IF YS="2" THEN W=4 

IF YS="2 1/3" THEN W=5 
IF YS="2 2/3" THEN W=6 
IF YS="3" THEN W=8 

IF Y$="3 1/3" THEN W=10 
IF YS$="3 2/3" THEN W=12 


IF YS="4" THEN W=16 

PRINT"FILTER FACTOR SHOULD BE ";W 
PRINT:GOTO 210 | 

HOME:PRINT CHRS(7) 

VS-"ou 

INPUT"THE FILTER FACTOR IS "3X 

IF X=1.2 THEN VS="1/3" 

IF X=1.5 THEN V$="2/3" 

IF X=2 THEN VS="1" 
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460 IF X=2.5 THEN VS="1 1/3" 
470 IF X=3 THEN VS="1 2/3" 
480 IF X=4 THEN VS="2" 

490 IF X=5 THEN VS="2 1/3" 
500 IF X=6 THEN VS="2 2/3" 
510 IF X=8 THEN VS="3" 


520 IF X=10 THEN VS="3 1/3" 

530 IF X=12 THEN VS="3 2/3" 

540 IF X=16 THEN VS="4" 

550 PRINT "YOU CHANGE THE F/STOP BY +" 
“VS 

560 PRINT:GOTO 410 


Entering: Letter Stop 


One way to conclude an input series, and get out of 
its entry loop, is to use a key letter to promote a jump. In 
this brief example, we input numbers, at line 100, as 
string values. If we give:the computer an X rather than a 
number, it will jump down to line 200 for new action. 

Numbers keyed in are stored first as strings. Then 
line 120 changes them to number values for the addition 
in line 130. 


Program Listing 


10 HOME 

20 B=6:C=@ 

100 INPUT"GIVE ME A NUMBER":AS 

110 IF AS="X" THEN GOTO 200 

120 B=VAL(AS) 

130 C=C+B 

140 GOTO 100 

200 PRINT:PRINT CHRS(7) 

210 PRINT "THE TOTAL OF ALL THOSE 
NUMBERS 2S "sc 


Here’s another way to conclude an entry loop: have 
the computer be on the lookout for a plain zero. When a 
zero is entered, the computer will jump out of the entry cy- 
cle and on to further action. 

This program totals numbers as they are added and 
accumulates them in memory location B. If one of the 
numbers entered is a zero alone, then line 110 will spot it 
and send the computer on down to line 200, breaking the 
entry cycle. 

Naturally, you can’t use a zero in a string of numbers 
to be added since zero causes the computer to quit enter- 
ing and get on with displaying. 


Program Listing 


10 HOME 
20 B= 
100 INPUT "GIVE ME A NUMBER PLEASE"sA 
110 IF A=@ THEN GOTO 200 
120 B=B+A 
130 GOTO 100 
200 PRINT:PRINT CHRS(7) 
210 PRINT"THE TOTAL OF ALL THOSE NUMBERS 
IS "3B 


Keyboard Scanner 


This program demonstrates the APPLE’s ability to 
make a one-key selection without a need for you to press 
the RETURN key. It uses the powerful GET instruction. 

At line 100, the GET instruction forces the computer 
to await a key press and then store the value of that key in 
KY$. For instance, if you pressed the key for the letter A, 
the keyboard scanner would see that and store the letter 
Ain memory location KY$. If you pressed X, it would store 
X in KY$. 

The computer, after a key is pressed, examines the 
contents of KY§$. At line 110 we find the computer looking 
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for an Ain KY$. At line 120 we find it looking for a B there. 
At 130 it is looking for a C. If none are found, line 140 
pushes action back up to line 100 where the computer pa- 
tiently awaits another key press. Line 140, then, is an error 
trap to make sure no letter, other than A, B, or C, gets 
through. 


Program Listing 


10 HOME 
20 PRINT"TO GO TO:" 
30 PRINT:PRINT"LINE 200","PRESS A" 
40 PRINT"LINE 300","PRESS B" 
50 PRINT"LINE 400","PRESS Cc" 
60 PRINT:PRINT 

100 GET KYS 

110 IF KYS="A" THEN 200 

120 IF KYS="B" THEN 300 

130 IF KYS="C" THEN 400 

140 GOTO 100 

200 PRINT"AT LINE 200" 

210 GOTO 60 

300 PRINT"AT LINE 300" 

310 GOTO 60 

400 PRINT"AT LINE 400" 

410 GOTO 60 


Character-ASCli 


Here’s a fast conversion, either to or from an ASCII 
value. 

Lines 20-70 let you select which direction your conver- 
sion will go. If you have an ASCil value, program execu- 
tion will move to line 100. The conversion is made in line 
140. If you wish to convert a keyboard character to its 
ASCil value, the program jumps from line 60 to line 200. 
The conversion is done at line 230. 
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Program Listing 


10 HOME 

20 PRINT "SELECT: ASCII-TO-CHARACTER 
(PRESS A)" 

30 PRINT "OR SELECT: CHARACTER-TO-ASCII 
(PRESS C)" 

40 INPUT "WHICH ?":CS§ 

50 IF CS="A" THEN 100 

60 IF CS="C" THEN 200 

70 GOTO 4O 

100 INPUT "WHAT IS THE ASCII VALUE ?" 


A 

3 

110 IF A>255 THEN 100 

120 HOME 

130 PRINT "THE ASCII NUMBER IS "3A 

140 PRINT "THE CHARACTER IS ";sCHRS(A) 

150 PRINT 

160 GOTO 20 

200 INPUT "WHAT IS THE CHARACTER ?" 
sCHS 

210 HOME 

220 PRINT "THE CHARACTER IS "3;CHS 

230 PRINT "THE ASCII NUMBER IS " 
*ASC(CHS) 

240 PRINT 

250 GOTO 20 


JO Character Numbers 


This brief program displays the ASCIli value for each 
keyboard character, side-by-side with the character it 
stands for. You will be able quickly to tell what each 
number prints. 

Line 40 is a timing loop to slow down the presenta- 
tion so you can digest the information. To make it even 
slower, increase the number 400 in line 40. To make it 
faster, decrease thie number 400 in line 40. 

The computer’s chime will ring after it reaches 255. 
Line 60 provides the beep. By the way, it also will beep 
when N = 70 in line 30 and when N = 135 in line 30. 
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Program Listing 


10 HOME 

20 FOR N=@ TO 255 

30 PRINT N,CHRS(N) 

40 FOR L=1 TO 400:NEXT L 
50 NEXT N 

60 PRINT CHRS(7) 


Memory Peek 


Want a quick look into a specific memory location? 
Use the interesting PEEK instruction. 

This short program allows a search of memory loca- 
tions. You should change the numbers in line 20 to en- 
compass whatever memory locations you wish to search. 
As written, the program will cause the computer to reveal 
the contents of locations 1000 to 1100. It could just as 
well be 100 to 200 for which you would substitute the ex- 
pression: 

FOR M= 100 TO 200 
or 10,000 to 10,100 for which you would use the expres- 
sion: 
FOR M = 10000 TO 10100 
These substitutions are at line 20, of course. In fact, you 
could look at quite a lot of locations like this: 
FOR M=8 TO 60000 


Program Listing 


10 HOME 

20 FOR M=1000 TO 1100 

30 P=PEEK (M) 

40 CS=CHRS (P) 

50 PRINT "ASCII VALUE AT "sM3" IS " 


¢P 
60 PRINT "CHARACTER AT “sMs" TS ":CS$ 
70 PRINT 
80 FOR L=l TO 500:NEXT L 
9O NEXT M 


This program shows a way to sort information into a 
specific order. We are putting months, in this example, in- 
to chronological order. 


You key in any quantity of months, from one to twelve, 
and the computer will sort and print a list. Be sure to spell 
each month’s name fully and correctly. 

This is a good demonstration of the LEFT$ function. 
We use LEFTS$(M$,3) to get at the first three letters in the 
name of each month. We have to use three letters, by the 
way, since fewer would provide duplicates and the sort 
would come out wrong. 


Program Listing 


10 
20 


HOME 

DIM MS(12) 

FOR L=1 TO 12 

INPUT "MONTH: '3MNS 

INPUT "DAYS IN THAT MONTH: ":DYS 
MS(L)=MNS4+" HAS "4+DYS+" DAYS" 

NEXT L 

FOR L=1 TO 12 

IF LEFTS(MS(L),3)="JAN" THEN PRINT 
MS(L) | 
NEXT L 

FOR L=1 TO 12 

IF LEFTS(MS(L),3)="FEB" THEN PRINT 
MS(L) 

NEXT L 

FOR L=1 TO 12 

IF LEFTS(MS(L),3)="MAR" THEN PRINT 
MS(L) 

NEXT L 

FOR L=1 TO 12 

IF LEFTS(MS(L),3)="APR" THEN PRINT 
MS(L) 

NEXT L 
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FOR L=1l TO le 


IF LEFTS(MS(L),3)="MAY" 


MS(L) 
NEXT L 
FOR L=1 TO 12 


IF LEFTS(MS(L),3)="9UN" 


MS(L) 
NEXT L 


FOR L=l1 TO 12 


IF LEFTS(MS(L),3)="9UL" 


MS(L) 
NEXT L 
FOR L=l1 TO 12 


IF LEFTS(MS(L),3)="AUG" 


MS(L) 
NEXT L 
FOR L=1 TO 12 


IF LEFTS(MS(L),3)="SEP" 


MS(L) 
NEXT L 
FOR L=1 TO 12 


IF LEFTS(MS(L),3)="0CT" 


MS(L) 
NEXT L 
FOR L=1 TO 12 


IF LEFTS(MS(L),3)="NOV" 


MS(L) 
NEXT L 
FOR L=l TO 12 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


IF LEFTS(MS(L),3="DEC" THEN PRINT 


MS(L) 
NEXT L 


Here’s a handy routine, accepting lists of up to 100 


names and sorting them into alphabetical order. The size 
of the list is controlled by the DIM instruction in line 20. 
You can change it. 
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Noie that the screen goes blank while sorting is go- 
ing on inside your APPLE so you must be patient. The 
more names to sort, the longer it takes. 

Of course, you can change names to other caite- 
gories such as items, products, units, etc. 

You will have to enter 100 names as the program is 
written. If you wish to enter a smaller quantity of names at 
one time, add this line 45 to the program: 

45 |F MS(L)= “X” THEN GOTO 60 

Line 45 uses the letter X, when typed in response to 
the NAME query, to force an exit from the entry cycle. 
Problem: the X will be sorted with your other entries and 
will appear in your final list! Can you think of a way to get 
rid of that little problem? 

The program sorts by whatever is first in the input 
line. 


Program Listing 


10 HOME 

20 DIM MS(100) 

30 FOR L=1 TO 100 

40 INPUT "NAME: "sMS(L) 
50 NEXT L 


70 T= 
80 FOR L=1 TO 99 
90 IF MS(L)<=MS(L4+1) THEN 110 
100 ES=MS(L):MS(L)=MS(L41):MS(L41)=ES 
eT=l 
110 NEXT L 
120 IF T=1 THEN 70 
130 FOR L=1 TO 100 
140 IF MS(L)<>"" THEN PRINT MS(L) 
150 NEXT L 


There is nothing more unsightly than a video screen 
full of miscellaneous garbage. It can be very distracting 
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when you start to RUN a new program while unwanted old 
bits and pieces of information dot the screen. 

Now you can make any program clear away the un- 
wanted junk before showing you results of a new RUN. 
Use the instruction HOME to clear the video display. 

Use the HOME command to clear the screen at the 
start of each program. Try our sample program. Before 
running it, key in the following: 

GR RETURN 
TEXT RETURN 
Now the video screen will be filled with junk ampersands. 
Key in RUN and see the program clear away those un- 
wanted symbols. The alphabet is printed on a clean slate 
as a result of this program operation. 


Program Listing 


10 HOME 
20 PRINT"ABCDEF GHIJIKLMNOPQR STUVWXYZ" 
30 END 


News Ticker 


It’s Times Square all over again! This program 
simulates the crawling message of a news wire. 

First the computer will ask for your message. Then it 
will display that message endlessly (until you press the 
RESET key). 

To speed up, or slow down, the crawl, increase or 
Gecrease the number 200 in line 90. 

For a test, in answer to the computer’s query, ‘“‘What 
is the news?’’, try typing in: The mayor of Smithville today 
announced he will retire next December. 


Program Listing 

10 HOME 

20 PRINT" WHAT IS THE NEWS ?" 
30 INPUT NS 
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40 HOME 

50 L=LEN(NS) 

60 FOR Y=1 TOL 

70 BS=BS+MIDS(NS,Y,1) 

80 PRINT BS 

90 FOR T=1 TO 200:NEXT T 
100 HOME 
110 NEXT Y 
120 BS="";:GOTO 80 


Create AQ 


One of the most fascinating uses for your APPLE is 
in having it carry on a video conversation with your 
friends, relatives and neighbors. One useful way to pro- 
mote such conversation is through a quiz. An instruc-. 
tional, educational quiz, such as we have here. 

Quiz data—the computer’s storehouse of know: 
ledge—is in lines 20 to 70. Be careful, when you type 
them into your APPLE, to include the commas separating 
the two halfs of each data line. Speiling and spacing must 
be exact. 

Lines 90 and 100 obtain a random number in the 
range of 1 to 11. Line 110 selects the data line for a ques- 
tion. Lines 120 through 140 get the appropriate word 
FIRST, SECOND, THIRD, FOURTH, FIFTH or SIXTH from 
the selected data line. Lines 160 to 180 print the quiz 
question on the screen, while line 190 reads the DATA 
line to learn the correct answer. You provide your 
response when the computer asks for it at line 200. Lines 
220-240 decide whether you are right or wrong. 

Of course, the quiz can be made much longer. In this 
example, it could be expanded to encompass all past U.S. 
presidents. 


Program Listing 

10 HOME 

20 DATA FIRST,GEORGE WASHINGTON 
30 DATA SECOND,JOHN ADAMS 
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DATA THIRD,THOMAS JEFFERSON 
DATA FOURTH, JAMES MADISON 
DATA FIFTH, JAMES MONROE 

DATA SIXTH,JOHN QUINCY ADAMS 
PRINT'"HOW MANY U.S. PRESIDENTS 
CAN YOU NAME" 
R=INT(12*(RND(1))) 

IF R<l THEN 90 

IF INT(R/2)=R/2 THEN R=R+4+1 
FOR L=-1 TOR 

READ SS 

NEXT L 

PRINT:PRINT 

PRINT" WHO WAS THE " 

PRINT SS 


PRINT"PRESIDENT OF THE UNITED STATES" 


READ CS 

INPUT DS 

PRINT 

IF DS=CS THEN PRINT "CORRECT" 
:<GOTO 240 

PRINT "WRONG" 


PRINT "THE "3SS3;" PRESIDENT WAS "3;CS$ 


RESTORE 
PRINT: PRINT 
GOTO 90 


Whiz i: Smart Adder 


These six programs, in this section of the book, make 
up our Gee Whiz series. One of the fun ways to use your 
APPLE is in wowing your friends. Next time they ask, 
“But, what can it do?’’, show them its uncanny abilities at 
adding, spelling, writing upside down, even cracking 
jokes. Try these six Gee Whiz programs on your friends. 
You'll love their reactions. 

Smart Adder is the first in the series. When your 
neighbor drops in for a cup of coffee, bring out the APPLE 
for a demonstration of its lightning speed. 

This program adds long strings of numbers in a flash. 
You give the computer a number. It starts at 1 and adds all 
numbers up to and including your number. For instance, if 
you give it a five, it will add 1 plus 2 plus 3 plus 4 plus 5 
and display the result. 

Ask your neighbor how fast he or she can add all the 
numbers to 100. It should take several minutes. While 
he’s working on it, let your APPLE do it in a split second. 
Your neighbor’s reaction is bound to be, “‘Gee whiz!” 


Program Listing 


10 HOME 

20 INPUT"GIVE ME A NUMBER" ;N 

30 FOR L=1 TO N:X=X+L2:NEXT L 

40 PRINT CHRS(7) 

50 PRINT "THE TOTAL OF 1 TO "s3N 
ott TS hs X 

60 PRINT:CLEAR:GOTO 20 


There are 26 letters in the alphabet. Each has a 
number. For instance, number 1 is A. Number 20 is T. This 
Gee Whiz program has the computer ask you for a number 


58 


from 71 to 26 and then, faster than a jackrabbit, tell you 
what letter it goes with. 

Naturally, you'll know how it works but to your non- 
computer friends it will seem like the APPLE is a genius! 


Program Listing 


10 HOME 
20 DATA A,B,C,D,E,F,G,H,1,3,K,L,M,N,0, 
P,O,R,S,T,U,V,W,X,Y,Z 
30 PRINT"GIVE ME THE NUMBER OF" 
40 PRINT"A LETTER FROM THE ALPHABET" 
50 INPUT"FROM 1 TO 26 "s:N 
60 FOR L=1 TON 
70 READ AS 
80 NEXT L 
90 PRINT:PRINT:PRINT CHRS(7) 
100 PRINT"LETTER NUMBER "sNs" IS "3AS 
110 RESTORE:PRINT:GOTO 20 


Up, Down, Back, Forth 


“Good golly, what can’t that APPLE do?’’, will be the 
question from your surprised neighbor when you show 
him this neat trick. 

You type in any word. The computer instantly prints it 
on the video display, both up and down vertically, and 
backward and forward horizontally. It’s great to show how 
smart your computer is when it comes to spelling! 


Program Listing 


10 HOME 

20 DIM X$(100) 

30 INPUT"GIVE ME A WORD "3AS 
40 L=LEN(AS) 

50 FOR J=1 TO L+l 

60 X$(J3)=MIDS(AS,I,1) 
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70 NEXT J 
80 PRINT:PRINT "DOWN:","UP:" 
90 FOR J=l1 TO Ll 
100 PRINT X$(39),XS(L+1-39) 
110 NEXT 3 
120 PRINT "FORWARD:" 
130 PRINT AS 
140 FOR J=L+1 TO 1 STEP -1 
150 72$=75+MIDS(AS,3,1) 
160 NEXT J 
170 PRINT:PRINT "BACKWARD:" 
180 PRINT ZS 
190 PRINT:PRINT:CLEAR:GOTO 20 


Have your neighbor secretly select any three-digit 
number in which ali three digits are the same. Then have 
him tell the computer only the sum of those three digits. 

The computer will identify his secret number! 


Program Listing 


10 HOME:CLEAR 

20 PRINT"SELECT A THREE-DIGIT NUMBER" 

30 PRINT"WITH ALL THREE DIGITS THE SAME" 

40 PRINT:PRINT"ADD THE THREE DIGITS 
TOGETHER" 

50 INPUT"WHAT IS THE SUM OF THE THREE 
DIGITS ?"3N 

60 Q=37*N 

70 PRINT:PRINT CHRS(7) 

80 PRINT"YOUR ORIGINAL NUMBER WAS ";Q 

90 PRINT:PRINT:GOTO 20 


Funn Similes 


Give these newfangled gadgets an inch and they'll 
take a mile. In the case of your APPLE, give it some tacky 
retorts and it will spew out an endless string of dumb 
remarks. 

You first tell the computer whom it is describing. 
Then it starts depicting that person in a series of colorful 
references. 

Your non-computer friend won’t understand it but 
you'll know the fun is in having the computer randomly 
select various words from a vocabulary you have given it. 
It combines those words into silly sayings. 

In this program, the adjectives are in DATA lines 
20-60. The nouns are in lines 70-110. Line 210 obtains the 
name of one of your “friends.”’ Lines 300-350 randomly 
select an adjective. Lines 400-450 select a noun. 

Line 500 maiches your friend’s name with the adjec- 
tive and noun to create an insult. Line 520 makes it repeat 
continuously until you press the RESET key. 


Program Listing 


10 HOME 
20 DATA SHORT,TALL,FAT,LEAN CLEAN 
30 DATA DIRTY,GOOD,BAD,HAPPY, SAD 
40 DATA GREEN,RED, YELLOW, BLUE,UGLY 
50 DATA PRETTY, SHARP, DULL, TACKY, NATTY 
60 DATA STRONG, WEAK,MEAN,NICE, DUMB 
70 DATA GNOME, TREE,PIG,BOX,CLOCK 
80 DATA TURKEY,GOLD, APPLE,DOG,ROOKIE 
90 DATA BEET,BIRD,SKY,SIN,PEACH 
100 DATA TACK,RAZOR, PIN, PLUG, BULL 
110 DATA WORM,LION, LAMB, PUPPY, OX 
200 PRINT CHRS(7) 
210 INPUT "WHOM ARE WE DESCRIBING ?";BS 
300 T=INT(100*(RND(1))) 
310 IF T<l OR T>25 THEN GOTO. 300 
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FOR L=1 TO T 

READ DS 

NEXT L 

RESTORE 

T=INT(100*(RND(1))) 

IF T<26 OR T>50 THEN GOTO 400 
FOR L=1 TO T 

READ ES 

NEXT L 

RESTORE 

PRINT CHRS(7) 

PRINT BS:" IS "sDS3" AS A "SES 
GOTO 300 


W he o Is Youn g est? 


The computer asks for the names and ages of all peo- 


ple in the room. If you are the only person in the room, it 
will tell you to get someone else to play with you or forget 
it. After collecting the names and ages, the computer in- 
stantly tells which person is youngest. 


Program Listing 


10 
20 


30 
40 


60 


HOME 

PRINT"HI"sPRINT"I'M YOUR APPLE 
COMPUTER" 

INPUT"WHAT'S YOUR NAME ":NS 

IF NS=""" THEN PRINT"YOU HAVE TO 
HAVE A NAME":GOTO 30 
PRINT:PRINT"HI, "3NS 

INPUT"HOW MANY PEOPLE ARE IN THE 
ROOM ? "sQ 

IF Q<l OR Q<>INT(Q) THEN 400 

IF Q=1 THEN 500 

PRINT:PRINT"I BET I CAN TELL WHO 
IS YOUNGEST" 


110 DIM PS$(Q),A(Q) 

120 FOR L=1 TO Q 

130 IF L>l THEN 170 

140 INPUT"GIVE ME SOMEONE'S NAME " 
sPS(L) 

150 IF PS(L)="" THEN 140 

160 IF L=l THEN 190 

170 PRINT: INPUT"GIVE ME ANOTHER NAME " 
sPS(L) 

180 IF PS(L)="" THEN 170 

190 PRINT"HOW OLD IS ";PS(L) 

200 INPUT A(L) 

210 IF L=l THEN LA=A(L):LNS=PS(L) 
sHA-A(L) :HNS=PS(L) 

220 IF A(L)<(LA) THEN LA=A(L):LNS=PS(L) 

230 IF A(L)>(HA) THEN HA=A(L) :HNS=PS(L) 

240 NEXT L 

250 HOME 

260 PRINT NS3", HERE'S WHAT I FIND:" 

270 PRINT!:PRINT HNSs3" IS OLDEST AT "3$HA 

280 PRINT"AND "sLNS3s" ITS YOUNGEST AT "sLA 

290 PRINT:PRINT"THANKS FOR STOPPING BY," 

300 FOR L=1 TO Q 

310 IF L=0 THEN 340 

320 PRINT PS(L)3"," 

330 GOTO 350 

340 PRINT"AND "sPS(L) 

350 NEXT L 

360 END 

400 PRINT:PRINT"DON'T PLAY AROUND, '3NS 

410 PRINT"THERE CAN'T BE ":Q3" PEOPLE" 

420 PRINT" PLEASE TELL THE TRUTH, ";NS 

430 PRINT:GOTO 60 

500 PRINT:PRINT"WELL, "3NS 

510 PRINT"SINCE WE'RE ALL ALONE" 

520 PRINT"THERE IS NO ONE TO DEMONSTRATE 
TO" 

530 PRINT"SO BRING SOMEONE INTO THIS ROOM" 

540 PRINT" OR FORGET IT" 

550 PRINT:PRINT"WHICH WILL IT BE" 

560 INPUT"GET OR FORGET ? "3G5$ 
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570 IF LEFTS(G$,1)="G" THEN PRINT 
>PRINT "OKAY":GOTO 60 

580 IF LEFTS(GS,1)="F" THEN PRINT 
:PRINT "OKAY, GOODBYE" :END 

590 GOTO 560 
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This program generates a series of random numbers 
and then adds them up. Then it reverses the order of the 
digits in the total. Creates a very strange random number! 

Lines 20-40 generate three random single-digit 
numbers. Line 50 is a trap to make sure they are between 
1 and 9 with no zeros showing up. 

Line 60 changes the number values into strings so 
they can be tied together as three digits at line 70. Line 80 
takes those three-digit strings from line 70 and turns them 
back into numerical values. 

Line 110 is a time delay loop to stall a moment before 
line 120 pushes action back up to line 20 for a new start. 


Program Listing 


10 HOME 
20 J=INT(10*(RND(1))) 
30 K=INT(10*(RND(1))) 
40 L=INT(10*(RND(1))) 
50 IF J<l OR K<l OR L<l THEN GOTO 20 
60 JS=STRS(I) :KS=STRS(K) :LS=STRS(L) 
70 NS=3S54+KS4+LS$5:RS=LS4KS4I5 
80 N=VAL(NS):R=VAL(RS) 
90 PRINT"RANDOM NUMBER IS "sN 
100 PRINT"BACKWARD, IT IS "sR 
110 FOR X=1 TO 500:NEXT X 
120 PRINT:GOTO 20 


Logic Functions 

You can make your computer do things based on its 
decision that something exists. That is, in the first pro- 
gram listing here, it only will print the value of C if it finds 
that B has an existing value. If Bis found to have no value, 
does not exist, C will not be printed. 
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The decision is in line 40. The machine only prints C 
if 8 does not equal zero. Since, in line 20, we set B= 10, 
the computer will find that something exists in B and, 
thus, go ahead and do the work assigned in the last half of 
line 40. If nothing had been stored in B, the last half of line 
40 would have been ignored. 


Program Listing 


10 HOME 

20 B=10 

30 C=10*B 

40 IF B THEN PRINT C 


In the second program here, the APPLE only displays 
the results of the tests in lines 40 and 50 if the results of 
one or both is “true.” 

By doing the simple math in your head, you can see 
that the information in the right-hand side of line 20 is 
true. The information in the right-hand side of line 30 is 
false. 

Line 20 says that 6+ 8 is greater than 3 times 4. That 
is, 14 is greater than 12. That is true. 

Line 30 says that 5+ 2 is greater than 9+ 2. That is, 7 
is greater than 11. That is false. 

After reading line 20, the computer will store a1inB 
since the statement is true. Upon reading line 30, the 
computer will store a zero in C since the statement is 
false. 

As action drops to line 40, the computer will find the 
1 it stored in B and, thus, complete the action called for at 
the right-hand end of line 40. It will display the message, 
“B OKAY.” , 

At line 50, however, the computer will find “nothing” 
(zero) in C and will not complete the right-hand end of that 
instruction. It only will do the right-hand end if it finds 
something in the left-hand end. 

These logic functions are great for quick tests. 


Program Listing 
10 HOME 
20 B=(64+8)>(3*4) 
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30 C=(542)>(9+2 ) 
40 IF B THEN PRINT "B OKAY" 
50 IF C THEN PRINT "C OKAY" 


This program finds and lists the factors of any 


number you specify, up to 10001. it can be used as a 
subroutine in a larger program, with appropriate attention 
to line numbers, variable names, and RETURN. 


The number of individual factors are limited by the 


DIM statement in line 20. If you have less than the 48K 
RAM memory in our program-testing machine, try a 
smaller number such as 999 in line 20. 


The list will exclude the number itself divided by 1. 
For a quick sample run, try the number 18. You 


should find factors are 9, 6, 3 and 2. Or try 10001. Factors 
are 137 and 73. 


Program Listing 


HOME 
DIM Q(5000) 

INPUT"NUMBER = "SN 

FOR L=2 TO N/2 

M=N/L 

IF M=INT(M) THEN P=P+1:Q(L)=™ 

NEXT L 

PRINT"FACTORS ARE:" 

FOR L=l1 TO N/2 

IF Q(L)>1 THEN PRINT CHRS(7);Q(L) 

sGOTO 120 

7=/+41 

NEXT L 

IF N=l THEN PRINT CHRS(7)3;"NONE" 

©GOTO 150 

IF Z=INT(N/2) THEN PRINT CHRS(7)3"NONE" 
PRINT:PRINT:CLEAR:GOTO 20 


Here’s a way to determine mean and standard devia- 
tion. In this particular program, you exit the entry cycle by 
entering the large number 999999999 (nine 9’s) so you 
can’t use 999999999 as one of your data points. 

This is a great opportunity to experiment with stan- 
dard deviation computations. Try a series of data points 
such as 3, 5, 3, 7, and 4. They should result in a total of 22; 
mean of 4.4; variance of 2.3999998; and standard deviation 
of 1.49666295. 


Program Listing 


10 HOME 
20 INPUT"DATA POINT = "3X 
30 IF X=999999999 THEN 60 
40 T=T4+X:S=S+XA2:N=N41 
50 GOTO 20 
60 A=T/N:V=S/N-AA2:D=SQR(V) 
70 PRINT:PRINT CHRS(7) 
80 PRINT"DATA POINTS TOTAL: "3T 
90 PRINT"MEAN: "3A 
100 PRINT"VARIANCE: "3V 
110 PRINT"STANDARD DEVIATION: "3D 
120 PRINT:PRINT:CLEAR:GOTO 20 


Key in any number. The computer will display its 
reciprocal. The actual conversion is done here at line 30. 


Program Listing 


10 HOME 

20 INPUT"NUMBER TO CONVERT TO RECIPROCAL 
— MeN 

30 R=1/N 

40 PRINT"RECIPROCAL = "sR 


90 PRINT:CLEAR:GOTO 20 
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Usually it’s more convenient to enter percentages as 
percent rather than having to convert to decimals in your 
head first. Of course, the computer needs that converted 
decimal value to do its work. How to get it? 

This program does the trick. You give it a percentage 
and it converts that to a decimal. The computer does the 
hard work for you! 

Line 30 makes the actual conversion. Use this idea as 
part of a larger check-balancing, accounting or bookkeep- 
ing program and save lots of mental effort. 


Program Listing 


10 HOME 

20 INPUT"PERCENTAGE = "$P 
30 D=.01*P 

40 PRINT"DECIMAL = "3D 

290 PRINT:CLEAR:GOTO 20 


Here’s a way to count numbers above and below a 
cut-off line. The computer solicits numbers between 1 
and 100. Any numbers you key in which are below 1 or 
above 100 are trapped out by line 140. Entering a zero 
ends the input cycle. 

Line 50 counts the total numbers. Line 60 counts on- 
ly those numbers between 1 and 50. Line 80 counts the 
numbers from 51 to 100. Lines 90 to 130 present results. 


Program Listing 


LO HOME :CLEAR 

20 INPUT"GIVE ME A NUMBER"; Z 
30 IF Z=@ THEN 80 

40 IF Z<l OR Z>100 THEN 20 
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N=N+1 

IF 7<51 THEN B=B+l1 

GOTO 20 

A=N-B 

PRINT:PRINT CHRS(7) 

PRINT Ne" NUMBERS TOTAL" 
PRINT Bs" 1-50" 

PRINT As" 51-100" 
PRINT:PRINTsCLEAR:GOTO 20 


How can the computer tell which number is smaller 
or larger? Here’s how. 

Type in the program and RUN it. It will ask for, and ac- 
cept a continuous string of numbers until you end the in- 
put routine by keying in a zero. 

Lines 40 to 60 make the decision as to which number 
is lowest. 


Program Listing 


HOME :CLEAR | 

INPUT"GIVE ME A NUMBER"; 2 

IF Z=@ THEN 80 

N=N+1 

IF N=il1 THEN D=2Z 

IF Z<D THEN D=Z 

GOTO 20 

PRINT:PRINT CHRS(7) 

PRINT"THE SMALLEST NUMBER WAS "3;D 
PRINTsPRINT:CLEAR:GOTO 20 
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It is possible to round off to the nearest hundredths 
place. That is, to two digits after the decimal point. Here’s 
how: 


Program Listing 


10 HOME:CLEAR 

20 PRINT"GIVE ME A NUMBER TO" 

30 PRINT"MORE THAN TWO DECIMAL PLACES" 
40 INPUT"ORIGINAL AMOUNT S"5N 

50 R=INT(100*N+.5)/100 

60 PRINT CHRS(7) 

70 PRINT "S"sNs" ROUNDS OFF TO S"sR 

80 PRINT:CLEAR:GOTO 20 


Dump The Integer 

Look at the number 123.456 with an eye toward how 
to get rid of the portion left of the decimal point. Keep 
only .456 and dump 123. Here’s a short program to ac- 
complish that. . 

Try 5.67. It will come out .67. Or 500.5 which will 
come out .5. 

Caution: your APPLE is not always accurate at math. 
Try 987.65, for example. It will result in .650000095 
because when the APPLE subtracts 987 from 987.65 at 
line 30 it does not get .65 as the correct answer. Rather, it 
gets an approximate answer! 


Program Listing 


10 HOME:CLEAR 

20 INPUT"GIVE ME A NUMBER WITH A 
DECIMAL";N 

30 X=N-INT(N) 
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40 PRINT CHRS(7) 
50 PRINT X 
60 PRINT:CLEAR:GOTO 20 


This program strengthens your confidence in the ran- 
dom number generator built into your APPLE computer. 

lt generates 100 numbers between zero and 100 and 
tells you how many of those are above 49 and how many 
are below 50. See the sample RUN for several sets of 
results in our recent test. 


Program Listing 


10 HOME 
20 FOR L=l1 TO 100 
30 X=INT(100*(RND(1))) 
40 IF X<50 THEN Y=Y+l1 
50 IF X>49 THEN N=N+1L 
60 NEXT L 
70 PRINT Y3" YES" 
80 PRINT N;" NO" 
90 N=0:Y=0 
100 PRINT :GOTO 20 


Sample Run 
51 YES 46 YES 
49 NO 54 NO 
42 YES 52 YES 
58 NO 48 NO 
56 YES 48 YES 
4.4 NO 52 NO 
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Key in numbers in any order. A zero will end entry. 
The computer will tell you the average number of all 
numbers you entered. 

Line 40 finds the total number of all numbers 
entered. Line 50 finds the total of entered numbers. Line 
70 computes the average. 


Program Listing 


10 HOME:CLEAR 
20 INPUT"GIVE ME A NUMBER": 7Z 
30 IF Z=@ THEN 70 
40 N=N+4+i 
50 T=T+Z 
60 GOTO 20 
70 A=T/N 
100 PRINT:PRINT CHRS(7) 
110 PRINT"THE AVERAGE NUMBER IS "3A 
120 PRINT:PRINT:CLEAR:GOTO 20 


Here’s how to find the middle of a range of numbers. 
You key in as many numbers in a Series as you wish. After 
the last number, key in a zero to move the program out of 
the entry cycle. 

Lines 40 to 70 select the highest and lowest numbers 
in the range. They actually define the range. Then line 90 
finds the middle point of that range. 


Program Listing 


1Q HOME :CLEAR 
20 INPUT"GIVE ME A NUMBER": Z 
30 IF Z=@ THEN 90 
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4Q0 N=N+4+1 

50 IF N=l THEN H=Z:L=Z 

60 IF Z<L THEN L=Z 

70 IF Z>H THEN H=Z 

80 GOTO 20 

90 M=L+((H-L)/2) 
100 PRINT:PRINT CHRS(7) 
110 PRINT"THE MID-RANGE NUMBER IS "3M 
120 PRINT:PRINT:CLEAR:GOTO 20 


Suppose you have a group of numbers and you wouid 
like to know which number is largest within the group? 
Here’s a software routine for your APPLE so it can locate 
the largest number. 

You can key in as many numbers as you wish. To end 
that entry cycle, type in a zero. The computer will see that 
zero as its cue to leave the entering routine and get on 
with computing. 

Line 40 tests each new number as you enter it. lf a 
new number is larger, that new number is stored in 
memory location D. At the end of the entry cycie, the 
largest number is left stored in D. Line 70 recalls that 
largest number and prints It. 


Program Listing 


10 HOME:CLEAR 

20 INPUT'"GIVE ME A NUMBER" 3Z 

30 IF Z=@ THEN 60 

40 IF Z>D THEN D=Z 

50 GOTO 20 

60 PRINT:PRINT CHRS(7) 

70 PRINT" THE LARGEST NUMBER WAS "3D 
80 PRINT:PRINT:CLEAR:GOTO 20 
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Percent to D 


Checking, interest, sales tax, and other financial pro- 
grams are more “‘user friendly” if you don’t have to make 
manual conversions in your head. For example, if you 
know your savings account earns 8 percent interest, and 
you need to multiply by the decimal vaiue for 8 percent 
(which is 0.08), it is easier to be able to enter 8 and let the 
APPLE figure out the decimal value. 

Here’s another way to change percentages to deci- 
mals inside a program to simplify entry by permitting 
percents to be entered as simple numbers. 

For some examples, try entering a price of 2.50 and a 
sales tax percentage of 6. Your APPLE will find the bill 
totals $2.65. Or try $7.80 and 5 percent tax. The bill will be 
$8.19. Try $123.75 at 8 percent tax. The bill will total 
$133.65. 


Program Listing 


10 HOME:CLEAR 
20 INPUT"PRICE = §"sP 

30 INPUT"SALES TAX PERCENTAGE = 'sR 
40 T=.01*R 

50 B=P4+T*P 

60 PRINT:PRINT CHRS(7) 

70 PRINT"BILL TOTALS $"3B 

80 PRINT:PRINT:GOTO 20 


The techniques for rounding off numbers is easy. 
This program, which can stand alone or be worked into a 
larger program as a subroutine, rounds a decimal to the 
nearest whole number. 

There are two views on how to round off. One holds 
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that “if the number is more than five, you round up.” 
Which means that exactly 0.5 rounds down. 

Another view is that “any number less than five 
rounds down.” In that case exactly 0.5 rounds up. 

The first set of program lines below is for the fellow 
with the ‘‘more than five rounds up” idea. 


Program Listing 


10 HOME:CLEAR | 
20 INPUT"GIVE ME A NUMBER TO BE ROUNDED 
OFF" sN 
30 IF N>INT(N) THEN 50 
40 R=N:GOTO 100 
50 D=N-INT(N) 
60 IF D>O.5 THEN 90 
70 R=INT(N) 
80 GOTO 100 
90 R=INT(N)+1 
100 PRINT CHRS(7) 
110 PRINT N3" ROUNDS OFF TO "sR 
120 PRINT:CLEAR:GOTO 20 


The second set of program lines rounds off on the 
“less than five rounds down” theory. Line 50 finds the 


decimal portion of the number and lines 60-980 do the 
rounding. 


Program Listing 


10 HOME:CLEAR 
20 INPUT"GIVE ME A NUMBER TO BE ROUNDED 
OFF"s:N 
30 IF N7INT(N) THEN 50 
40 R=N:GOTO 100 
50 D=N-INT(N) 
60 IF D<0.5 THEN 90 
70 R=INT(N) 41 
80 GOTO 100 
90 R=INT(N) 
100 PRINT CHRS(7) 
110 PRINT Ns" ROUNDS OFF TO "sR 
120 PRINT:CLEAR:GOTO 20 


Vf 


Reverser [i 


Give the computer a number. It will immediately, 
display the number printed backward on the video 
display. 

Line 20 collects the number from you. Line 30 
measures its length. Lines 40-70 reverse it and line 80 
displays the reversed number. 


Program Listing 


10 HOME 

20 INPUT"GIVE ME A NUMBER "3NS 

30 L=LEN(NS) 

40 FOR Y=L+1 TO 1 STEP -1 

50 BS=BS+MIDS(NS,Y,1L) 

60 NEXT Y 

70 B=VAL(BS) 

80 PRINT"REVERSED, THE NUMBER IS "3B 
90 PRINT:CLEAR:GOTO 30 


Suppose we have a list of people and each person has 
been assigned a number or score. This program accepts 
the names and scores and sorts out the persons with the 
highest and lowest scores. Here’s how it works. 

Ai line 20, the memory is DiMensioned to hold data on 
100 persons. Lines 30-130 take in the info on each person. 
As each person’s score is entered, lines 100-120 deter- 
mine if it is higher or lower than all previous scores. If 
higher or lower, it is so noted. 

To complete data entry, simply press ENTER without 
data. That will prompt the computer, at lines 140 and 150, 
to print the lowest score and the highest score. 
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Program Listing 


10 HOME 

20 DIM MS(100) 

30 FOR L=1 TO 100 

40 INPUT"NAMEs "sMNS 

50 IF MNS="" THEN 140 

60 INPUT"SCORE: ";kWS 

70 MS(L)=MNS+" "4KWS 

80 N=N+1 

90 K=VAL(KWS) 
100 IF N=] THEN LL=K:LMS=MS(L) 

eHH=K :HMS=MS(L) 

110 IF K<LL THEN LL=K:LMS=MS(L) 
120 IF K>HH THEN HH=K:HMS=MS(L) 
130 NEXT L 
140 PRINT"LOWEST SCORE: ";3LMS 
150 PRINT"HIGHEST SCORE: "3:HMS 


Sample Run 


RUN RETURN 

NAME s 

FRED RETURN 
SCORE: 

45 RETURN 


NAME ¢ 

HELEN RETURN 
SCORE s 

88 RETURN 


NAME s 

JOHN RETURN 
SCORE : 

76 RETURN 


NAME: RETURN 
WAYNE 

SCORE : 

62 RETURN 
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NAME: 

GEORGE RETURN 
SCORE 

51 RETURN 


NAME : 

RETURN 

LOWEST SCORE: FRED 45 
HIGHEST SCORE: HELEN 88 


This program generates a random number in the 
range of zero to 999. However, it has a difference. It only 
shows you every tenth number it generates. 

Line 20 generates the numbers. Line 40 selects the 
tenth number from each set. 


Program Listing 


10 HOME 

20 T=INT(1LOOO*(RND(i))) 

30 V=V4l 

40 IF .1*V=INT(.1*V) THEN PRINT V,T 
50 GOTO 20 


Random Numb 
Zero to Nine 


Although you see four program lines below, what we 
really have here is a very convenient single-line program 
for you to insert in a larger game or educational-testing 
program. 

Line 20 is the winner here. It prints a random number 
from zero to nine every time. For your use here, we print 
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that number on the screen. You could just as easily have 
the computer store that random number in a memory 
location for jiater recall and use. 

We have added lines 10, 30 and 40 to make your 
APPLE show you a whole series of random numbers from 
zero to nine. Remember, line 20 is the imporiant single- 
line program element here. 

If you would like random numbers in the range from 
zero to 99, make it 100* in line 20. For zero to 999, use 


1000* in line 20. 


Program Listing 


10 HOME 

20 PRINT INT(10*RND(1)) 
30 FOR L=l TO 200:NEXT L 
40 GOTO 20 
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Ever wonder how “random” are the numbers 
generated by the random-number generator in your 
APPLE when you use the RND instruction? Try this pro- 
gram. 

It generates 100 random numbers in a range from 
zero to nine and counts how many there are of each 
number between zero and nine. 

By the way, while it is doing that it will display the 
message “counting” so you can tell it is working. 

At the end of its run, the APPLE prints a neat chart, 
on the video display, of resuits. See our sample run. 


Program Listing 
10 HOME 


20 FOR L=l1 TO 100 
30 N=INT(10*RND(1)) 
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PRINT 
NEXT L 
HOME 


PRINT"@: 
PRINT"1: 
PRINT'"2: 
PRINT"3: 
PRINT"4: 
PRINT"5: 
PRINT"6: 
PRINT" 7: 
PRINT"8: 
PRINT"9: 


END 


Sampie Run 


RUN 


COU 
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RETURN 


NTING 


THEN 


"COUNTING" 


RUN RETURN 


COUNTING 
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This program generates 100 random numbers and 
totals them. Then it finds the average of ali 100 numbers. 

In fact, the average number itself is a useful new ran- 
dom number. 


Program Listing 


10 HOME 
20 FOR L=@ TO 99 
30 N=INT(1O*RND(1)) 
40 NT=NT41 
50 PRINT"AVERAGING" 
60 NEXT L 
70 HOME 
80 AV=NT/100 
90 PRINT"TOTAL OF ALL RANDOM NUMBERS 
IS "sNT 
100 PRINT 
110 PRINT"AVERAGE NUMBER IS "3AV 
120 END 
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Sample Run 
RUN RETURN 


AVERAGING 


TOTAL OF ALL RANDOM NUMBERS IS 444 
AVERAGE NUMBER IS 4.44 


RUN RETURN 
AVERAGING 


TOTAL Of ALL RANDOM NUMBERS IS 424 
AVERAGE NUMBER IS 4.24 


It’s important to be able to sort a group of numbers to 
see what the highest and lowest values are. This program 
does that. 

The random number generator is in line 30. It gives 
numbers in a range of zero to 999. Line 50 determines the 
lowest number in the set and line 60 finds the highest 
number. 


Program Listing 


10 HOME 
20 FOR L=@ TO 99 
30 N=INT(1000*RND(1)) 
40 IF L=@ THEN LN=N:HN=N 
50 IF N<LN THEN LNE=N 
60 IF N>HN THEN HN=N 
70 PRINT"SORTING" 
80 NEXT L 
100 HOME 


110 PRINT"LOW NUMBER JIS "3LN 
120 PRINT 

130 PRINT"HITGH NUMBER IS "3HN 
300 END 


Sample Run 
RUN RETURN 
SORTING 


LOW NUMBERS IS 32 
HIGH NUMBER IS 983 


LOW NUMBER IS 14 
HIGH NUMBER IS 980 


LOW NUMBER IS 17 
HIGH NUMBER IS 985 


LOW NUMBER IS 9 
HIGH NUMBER IS 991 


LOW NUMBER IS 1 
HIGH NUMBER IS 994 


Give your APPLE any three-digit number and, as a 
result of this particular programming trick, it will reverse 
the original number. For example, 789 wil! be transformed 
into 987. Or 123 into 321. It takes your three-digit number 
apart and reassembles it in reverse order. 

Be careful! Sometimes your APPLE won’t be too ac- 
curate. Try the number 234. lt will reverse that to 332. The 
problem is, when APPLE subtracts 23 from 23.4 at line 60, 
it gets an approximate answer .399999999 rather than .4. 
So the digit you know should be a 4 gets translated as a 3. 
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Program Listing 


10 HOME:CLEAR 

20 INPUT"GIVE ME A THREE-~DIGIT NUMBER" sN 
30 IF N<100 OR N>999 THEN 20 

40 A=INT(N/100) 

50 B=INT(10*((N/100)-A)) 

60 C=INT(10*((N/10)-CINT(N/10)))) 

70 PRINT CHRS(7) 

80 PRINT C3B;A 

90 PRINT:CLEAR:GOTO 20 
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Mr. Storekeeper, here’s just what you have needed to 
compute mark ups. This program causes your APPLE to 
find the retail price for which your percentage off would 
give the wholesale cost. 

For instance, if you got 40 percent off on an item and 
paid $60, how much was it priced at, at retail? The answer 
is $100. To put that another way, if retail price or sug- 
gested retail price is $100 and you got 40 percent off at 
wholesale, what its the wholesale price? The answer is 
$60. 

Try $40 wholesale which is 60 percent off. The 
answer is $100 retail. Or try $10 wholesale at 90 percent 
off. Retail would be $100. Or $75 wholesale at 25 percent 
off gives $100 reiail. 

Here’s a toughie! Try $19.95 wholesale cost. Mark-up 
percentage is 40. The correct retail answer is $33.25. 


Program Listing 


10 HOME 
20 INPUT"WHOLESALE COST = S"3W 
30, INPUT"MARK-UP PERCENTAGE = "35P 


40 D=1-.01*P:R=W/D 
50 PRINT"RETAIL PRICE = S"5R 
60 PRINT:CLEAR:GOTO 20 


From earlier tips in this book, you know how to make 
your APPLE convert percentages to decimals. But what if 
you want to know “percentage off?” 

For example, how much is 40 percent off? This pro- 
gram can be used to interpret 40 percent off and compute 
the decimal value needed. Try 40 percent off $100. The 
computer will change 40 percent off into decimal value 
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0.60. lf you muitiply 0.60 times $100 you find $60 is 40 per- 
cent off $100. 


Line 30 makes the important translation. 


Program Listing 


LO HOME 

20 INPUT"PERCENTAGE OFF = "3P 
30 D=1-.01*P 

40 PRINT"DECIMAL = "3D 


50 PRINT:CLEAR:GOTO 20 


Many companies like to price their goods at a figure 
ending in 95 cents. For instance, a ten dollar item might 
be marked $9.95 or $10.95. 

Here’s a program which demonstrates how to make 
all prices come out to the nearest 95 cents. See line 40. It 
merely takes the integer portion of the dollars number 
and adds 0.95 to it. 


Program Listing 
10 HOME:CLEAR 


20 INPUT"MANUFACTURING COST = $"sC 
30 INPUT"PRICING MULTIPLIER = ":M 
4Q P=INT(C*M)4+.95 

50 PRINT CHRS(7) 

60 PRINT:PRINT"RETAIL PRICE = $"3;P 


70 PRINT:PRINT:GOTO 20 


sample Run 


MFG COST = §$ 

1.12 RETURN 

PRICING MULTIPLIER = 
10 RETURN 

RETAIL PRICE = $11.95 
RETURN 
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MFG COST = § 


.79 RETURN 

PRICING MULTIPLIER = 
8 RETURN 

RETAIL PRICE = $6.95 
RETURN 


MFG COST = §$ 

123.45 RETURN 

PRICING MULTIPLIER = 

3 RETURN 

RETAIL PRICE = $370.95 


Nearest Penny 


This program is useful when you have a dollar-and- 
cents figure with more than two decimal places. For ex- 
ample, $151.6972. You need to transform $151.6972 to the 
more common $151.70 

This small program would make a good subroutine in 
a larger set of instructions. To do so, insert GOSUB ait the 
appropriate place in the larger set of program lines. 
Modify the line numbers of this small program so the 
subroutine will be located in an unused position in the 
larger listing. Change the last line of this small program to 
RETURN. Delete the first line. 


Program Listing 


10 HOME:CLEAR 

20 PRINT"ENTER A NUMBER TO" 

30 PRINT"MORE THAN TWO DECIMAL PLACES" 
40 PRINT: INPUT"ORIGINAL AMOUNT = S"5N 
50 R=INT(LOO*N+.5)/100 

60 PRINT CHRS(7) 

70 PRINT:PRINT"TO THE NEAREST PENNY," 
80 PRINT'"S"sNs" IS S'sR 

90 PRINT:PRINT:GOTO 40 


lf the result of your computation is a ‘‘money” 
answer, and you don’t know whether to display it in 
dollars or cents, let the computer decide. 

This program decides whether to display the output 
in dollars or cents. Notice in the sample run that, in the 
first instance, 1000 @ $1350 became $1.35 while 1000 @ 
$18.95 became 1.89 cents. Line 50 in the program makes 
the decision. 


Program Listing 


10 HOME:CLEAR 


20 INPUT"QUANTITY = "35P 
30 INPUT"TOTAL COST = $"5C 
40 T=C/P 


50 IF T<l THEN T=100*T:GOTO 80 
60 PRINT"EACH COST S$"3T 

70 PRINT:GOTO 20 

80 PRINT"EACH COST "sT3" CENTS" 
20 PRINT:GOTO 20 
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Need to have a secret code each day of the year? 
This software generates a list of code numbers. Of 
course, you can change the list every day if you wish. 


Program Listing 


10O HOME 

20 GOSUB 200 

100 PRINT "SUNDAY: "sC:GOSUB 200 
110 PRINT "MONDAY: "3C:GOSUB 200 
120 PRINT "TUESDAY: "sCsGOSUB 200 
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130 PRINT "WEDNESDAY: ";C:GOSUB 200 
140 PRINT "THURSDAY: ";C:GOSUB 200 
150 PRINT “FRIDAY: "sC:GOSUB 200 
160 PRINT "SATURDAY: "s:C:END 

200 C=INT(1O0000*(RND(1))) 

210 IF C<1000 THEN GOTO 200 

220 RETURN 


If you don’t want unauthorized use of your programs, . 
insert a requirement that a user know a password. This 
particular routine allows only one try at entering a correct 
password. 

For our password, we have selected “elephant” and 
stored it in line 30. You can change the password to 
whatever you like. 

lf a correct attempt at entering the password is 
made, program action will progress to line 100. Other- 
wise, action drops to line 40 and action ends. 


Program Listing 


1O HOME 
20 INPUT"WHAT IS THE PASSWORD ?"3;AS 
30 IF AS="ELEPHANT" THEN GOTO 100 
40 END 
100 PRINT"YOU GOT IT RIGHT" 
110 PRINT"THE PROGRAM WILL RUN" 


Here the software lets you try three times to enter the 
correct password. You don’t get to go forward with the 
program if you don’t get it right in three tries. 

Again the password is “elephant” and is stored in 


92 


line 30. You can change the password to whatever suits 
you. 

Lines 40 to 60 allow the three attempts. If no good 
afier three tries, then END. 


Program Listing 


10 HOME 
20 INPUT"WHAT IS THE PASSWORD ?"3:AS 
30 IF AS="ELEPHANT" THEN GOTO 100 
40 B=Bil 
50 IF B=3 THEN END 
60 GOTO 20 
100 PRINT"YOU GOT IT RIGHT" 
110 PRINT"THE PROGRAM WILL RUN" 


Here’s a really complex password entry system. It 
has a unique “account number” and a password for each 
person. This will allow several different persons access to 
the program but each person will have a different com- 
bination to the lock! 


account 

number password 
12345 zebra 
23456 goose 
34567 trout 
45678 snake 


Each individual user must correctly enter his unique 
account number and then his own personal password. li 
account number is wrong, then the password never can 
be right. if account number is okay but password doesn’t 
match, the user gets no run. 

You can add users to this program by adding lines to 
the 300-340 subroutine. | 
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Program Listing 


10 HOME:PRINT CHRS(7) 

20 FOR L=1 TO 3 

30 INPUT"YOUR ACCOUNT NUMBER ?":UA 

40 GOSUB 300 

50 INPUT"PASSWORD ?":PSS 

60 IF PSS=PWS THEN 100 

70 NEXT L 

80 END 
100 PRINT"MAIN PROGRAM RUNS" 
110 END | 
300 IF UA=12345 THEN PWS="ZEBRA" 
310 IF UA=23456 THEN PWS="GOOSE" 
320 IF UA=34567 THEN PWS="TROUT" 
330 IF UA=45678 THEN PWS="SNAKE" 
340 RETURN © 


This is handy for the busy executive who doesn’t 
have time for decisions. 

Line 10 clears the screen. Line 20 generates a ran- 
dom number from zero to 100. Line 30 selects a yes 
answer if the random number is greater than 49. Other- 
wise, line 40 chooses ano answer. 


Program Listing 


10 HOME 

20 X=100*(RND)1 

30 IF X>49 THEN PRINT "YES":GOTO 50 
40 PRINT "NO" 

20 END 


These useful lines compute total hours worked at 
regular pay and number of hours worked at time-and-a- 
half overtime. The computer then finds gross pay and 
rounds off to the nearest cent. 

The program knows that overtime starts after 40 
hours. It makes payroll bookkeeping quick and simple. 


Program Listing 


10 HOME 
20 INPUT"HOURLY PAY RATE = S$"3P 
30 INPUT"NUMBER HOURS WORKED = "sH 


40 IF H>40 THEN OT=H-40:GOTO 100 
30 W=H*P 
60 PRINT"GROSS WAGES = $"3;W 
70 END 
100 W=(40*P)+(OT*P*1.5) 
110 PRINT"GROSS WAGES = $"3W 
120 END 


Sampie Run 


RUN RETURN 


HOURLY PAY RATE = $ 
5./5 RETURN 

NUMBER HOURS WORKED\= 
61 RETURN 

GROSS WAGES = $411.125 


There’s a lot of repetitious math work to be done before 
you mail invoices to your customers. This software has 
the computer collect a few pertinent bits of data from you 
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and then present all the various totals you need to plug in- 
to an invoice. 

It gives you a total retail price for all goods sold on the 
invoice, total sales tax if applicable, shipping charges and 
the grand total amount due you from your customer. 


Program Listing 


10 HOME 
20 INPUT"QUANTITY SOLD = "3Q 
30 INPUT"UNIT PRICE = S$"sP 
40 INPUT"SALES TAX RATE PERCENT = "35 
50 INPUT" SHIPPING CHARGES = 5$"3H 
60 S=.01*S:C=0*P:T=C*S:F=C4+T+H 
70 CC=INT(100*C+.5)/100 
80 TT=INT(100*T+.5)/100 
90 FF=INT(100*F+.5)/100 
100 HOME 
110 PRINT" TOTAL PRICE = $";CC 
120 PRINT "SALES TAX = S"3TT 
130 PRINT"SHIPPING CHARGES = S"s:H 
140 PRINT 
150 PRINT"INVOICE TOTAL = $"3FF 
200 END 


sample Run 
RUN RETURN 


QUANTITY SOLD 

178 RETURN 

UNIT PRICE = $ 

95.98 RETURN 

SALES TAX RATE PERCENT = 
6 RETURN 

SHIPPING CHARGES = §$ 

100 RETURN 


TOTAL PRICE = $9964.44 
SALES TAX = $597.87 
SHIPPING CHARGES = $100 
INVOICE TOTAL = $10662. 31 
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The computer will ask you for discount percentage to 


be applied to the invoice; the retail price of goods being 
invoiced; and the quantity of those goods sold. 


Then it will ask if you have other items on the same 


invoice and, if so, will again get price and quantity sold in- 
fo from you. It will assume the same discount applies. 


When you tell the computer there are no more items 


for the invoice, it will display the total. 
Program Listing 


10 
20 


30 


GOSUB 600 

PRINT:PRINT" INFORMATION FOR 
COMPUTING INVOICES:" 

PRINT: INPUT"WHAT IS DISCOUNT 
PERCENTAGE '"s;DP 

DD-1-.01*DP 

INPUT"WHAT IS THE ITEM SOLD "s;ITS 
INPUT" WHAT IS RETAIL PRICE "3P 
INPUT"WHAT IS THE QUANTITY SOLD "3Q 
C=P*DD: 1T=C*Q: T=T+I 
PRINT:PRINT"WHOLESALE COST OF ":Q; 
"! "sTTSs"S: S'"sT 

PRINT: PRINT :PREINT 

PRINT"IF THERE ARE MORE ITEMS" 
PRINT"FOR THE SAME INVOICE, PRESS M" 
PRINT:PRINT"IF NO OTHER ITEMS,PRESS TT" 
Z=PEEK(-16384) 

POKE -16368,9 

IF Z<128 THEN 140 

IF Z=205 THEN HOME:GOTO 50 

IF Z=2l2 THEN 200 

GOTO 140 

PRINT:PRINT CHRS(7) 

PRINT"INVOICE GRAND TOTAL: S"3T 
PRINT:PRINT 

PRINT"TO DO OTHER INVOICES" 
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240 


250 
260 
600 
610 
620 
630 
640 


PRINT"AT OTHER DISCOUNTS, PRESS 
ANY KEY" 

GET KYS 

CLEAR:GOTO 10 

HOME 


PRINT KKK KKKHKHKEKKHEKHHKKHKEKKEHKEHM 


PRINT "* INVOICE COMPUTER *" 


PRINT KKH KKHHKMKEKKEKRKKRKKEKKKEKN 


RETURN 


Rounded off, $7.77. 


Unit price is total price divided by quantity. The quanti- 
ty can be expressed in weight, total numbers, etc. It works 
the same whether you are talking about pounds of coffee, 
yards of concrete, gallons of ice cream, boxes of books, 


or units of Widgets. 


This program asks for the name of the item, quantity 
purchased and total price paid. lt then displays quantity, 


name, total and unit price. 


Program Listing 


HOME 

INPUT"ITEM NAME IS "5NS 
INPUT"QUANTITY OF ITEMS = "50 
INPUT"TOTAL PRICE PAID FOR ITEMS 
o"5P 

U=P/Q 


FOR L=l1 TO 10 


SOUND=PEEK (-16336) 

NEXT L 

HOME 

PRINT NS3" UNIT PRICE = $"3U 


END 


Suppose you find 895 green Widgets and buy them 
for $695. How much did each green Widget cost? 


Sample Run 
RUN RETURN 


ITEM NAME IS 

WIDGETS RETURN 

QUANTITY OF ITEMS = 

999 RETURN 

TOTAL PRICE PAID FOR ITEMS = § 
14653 RETURN 


BEEP WIDGETS UNIT PRICE = $14.6676677 


g inventory 


Here’s a time-saver, useful for small businesses in 
evaluating the contents of inventory. As written, it can 
handle 50 different inventory items. To change that quan- 
tity, increase or decrease the number 50 in lines 10. and 
100 and the number 49 in line 430. 

The computer will ask you the name of a product’s 
manufacturer, what the product is, its retail price, and the 
quantity on hand in inventory. 

It sorts all such information on the various items in in- 
ventory and lists, alphabetically by manufacturer, and 
then lists again, alphabetically by product name. 

Note in the sample run, the program can tell the dif- 
ference between a manufacturer’s similar products and 
between the same products from different manufac- 
turers. If one manufacturer has the same _ product 
available at different prices, the computer sorts by price. 
See the sample run for an example of this. 

Use a printer and you will be able to print-out for your 
permanent records an alphabetized list of all products in 
inventory and a Summary review of quantities, prices, and 
values. 

Whether you display results on your television screen 
or on a printer, statistics include total number of different 
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items in inventory; number of different items in various 
price ranges; and total retail value of the inventory. 

You can change the price ranges by modifying the less- 
than values in lines 170-210. 


Program Listing 


10 HOME:DIM MS(50) 


CO PRINT KKK KK KKK KKKKEKKKEKKKKEMN 


30 PRINT"* INVENTORY REVIEW *" 

LQ PRINT XX KKH KK HHH KHER KEK EN 

50 PRINT:PRINT:PRINT CHRS(7) 
100 FOR L=1 TO 50 


110 INPUT"MANUFACTURER: "3PS 

120 IF PS="" THEN 400 

130 INPUT"PRODUCT: ";QS$ 

140 INPUT"RETAIL PRICE: $";GS$ 
150 INPUT"QUANTITY ON HAND: "3GGS 


160 X=VAL(GS):XX=VAL(GGS) 

170 IF X<10 THEN F=F+1:GOTO 220 
180 IF X<20 THEN D=D+1:GOTO 220 
190 IF X<30 THEN C=C+1:GOTO 220 
200 IF X<40 THEN B=B+1:GOTO 220 
210 A=A+l 

220 Y=Y+X 

230 Z=Z+1 

240 IF Z=1 THEN J=X:K=xX 

250 IF X<3 THEN J=X 

260 IF X>K THEN K=X 

270 [=1+xX 

280 II=Xx*X:TT=TT+II 

290 H=I/Z 

300 MS(L)=PS+" "4QS4" "4"SU4GS4" "2665S 
310 PRINT 

320 NEXT L 

400 HOME:PRINT CHRS(7) 

410 PRINT"SORTING" 

420 T=0 

430 FOR t=1 TO 49 

440 IF MS(L)<=MS(L4+1) THEN 460 
450 ES=MS(L):MS(L)=MS(L+4+1 ):MS(L41 )=ES:T=1 
460 NEXT L 


470 IF T=l THEN 420 
500 HOME:PRINT CHRS(7) 

510 PRINT"MFG / ITEM / PRICE / QUANTITY" 
520 PRINT 

530 FOR L=1 TO 50 

540 IF MS(L)<>"" THEN PRINT MS(L) 

550 NEXT L 

560 PRINT:PRINT 

570 PRINT"TO REVIEW INVENTORY, PRESS ANY KEY" 
580 GET KYS 

700 HOME:PRINT CHRS(7) 

710 PRINT TAB(10)"INVENTORY REVIEW" 

720 PRINT:PRINT"NUMBER DIFFERENT ITEMS: 

730 PRINT A;" FROM $40.00 ON UP" 

740 PRINT B;" FROM $30.00 TO 39.99" 

750 PRINT C3" FROM $20.00 TO 29,99" 

760 PRINT D;" FROM $10.00 TO 19.99" 

770 PRINT Fs" UNDER $10.00" 

780 PRINT:PRINT"TOTAL "3Z3" ITEMS" 

790 PRINT: PRINT"AVERAGE PRICE S$":H 

800 PRINT"RANGE $"33;" TO S"3K 

810 PRINT"TOTAL RETAIL VALUE S"3TT 

820 PRINT:PRINT:PRINT 

830 PRINT"TO DO ANOTHER SET, PRESS ANY KEY" 
840 GET KYS | 

850 CLEAR:GOTO 10 


Sample Run 


KRHKKKKHKEHKHKKHKKKHHKEKK 


* INVENTORY REVIEW * 


HHEHEKEKKKKKKHKHHKHHKEHKHKKHHK 


MANUF ACTURER: 
BROWN RETURN 
PRODUCT: 

WIDGET RETURN 
RETAIL PRICE: § 


9.9) RETURN 
QUANTITY ON HAND: 
100 RETURN 
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MANUFACTURER: 
SMITH RETURN 
PRODUCT: 

GLOVES RETURN 
RETAIL PRICE: § 
12.99 RETURN 
QUANTITY ON HAND: 
40 RETURN 


MANUFACTURER: 
JONES RETURN 
PRODUCT: 

OVENS RETURN 
RETAIL PRICE: § 
39.99 RETURN 
QUANTITY ON HAND: 
17 RETURN 


MANUFACTURER: 
RETURN 


SORTING 
MFG / ITEM / PRICE / QUANTITY 


BROWN WIDGET $9.95 100 
JONES OVENS $39.99 17 
SMITH GLOVES $12.99 40 


TO REVIEW INVENTORY, PRESS ANY KEY 
H 


INVENTORY REVIEW 
NUMBER DIFFERENT ITEMS: 
FROM $40.00 ON UP 
FROM $30.00 TO 39.99 
FROM $20.00 TO 29,99 


FROM $10.00 T0 19.99 
UNDER $10.00 


ME SBrES 


TOTAL 3 ITEMS 


102 


AVERAGE PRICE $20.9766667 
RANGE $9.95 TO $39.99 
TOTAL RETAIL VALUE $2194.43 


TO DO ANOTHER SET,PRESS ANY KEY 
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It may be useiess but it sure is a neat visual effect! 
Looks very important. Provides an eye-catching display of 
continually-rolling words. 

It will work with just the one program line but looks a 
lot better when you have many program lines in the com- 
puter. Try putting it at the end of some other program. 

10000 LIST:GOTO 10000 
To slow down the listing action scroll, try: 
10000 LIST 
10010 FOR L=1 TO 100:NEXT L 
10020 GOTO 10000 


Now you can draw lines, rules, diagrams, maps, 
charts, boxes—anything you can imagine—on the face of 
your video monitor. Use the APPLE keyboard as your pen 
and its video output as your ink. 

Drawings appear in the upper half of the video 
screen. With the program running, type U to move the line 
upward; D for down; R for right; and L for left. 

Be patient. The keyboard scan in line 20 doesn’t 
always pick up your key press. You sometimes will have 
to press twice or three times. But you can draw mazes, 
names, letters, pictures. 

These drawings, in the “text” mode, are much less 
defined than those might be in the graphic mode but 
useful since the machine remains in the text mode. 


Program Listing 


10 HOME:7=0:X=@0:Y=90 

20 Z=PEEK (-16384) 

30 POKE -16368,9¢ 

40 IF Z=196 OR Z=204 OR Z=210 OR 7Z=213 
THEN GOTO 60 


50 Z=-@:GOTO 20 
60 IF Z=213 THEN Y=Y-1:GOTO 200 
70 IF 7Z=196 THEN Y=Y+1:GOTO 200 
80 IF Z=210 THEN X=X4+l1:GOTO 200 
90 IF Z=204 THEN X=X-1:GOTO 200 

100 GOTO 20 

200 COLOR=@ 

210 IF X>39 THEN X=39 

220 IF X<@ THEN X=@ 

230 IF Y>24 THEN Y=24 

240 IF Y<@ THEN Y=@ 

250 PLOT X,Y 

260 7=0 

270 GOTO 20 


Blink. Blink. Blink. It’s enough to make your eyeballs 
hurt! 

The screen is filled with all the many printable 
keyboard characters. Some flash on and off. Some do not. 
Creates a very lively display! 


Program Listing 


10 HOME 

20 FOR V=1024 TO 1999 
30 R=INT(100*(RND(95))) 
40 IF R<33 THEN GOTO 30 
50 POKE V,R 

60 NEXT V 

70 GOTO 70 


Want a blinking dot in the upper left-hand corner of 
the screen? You’ve got it! 
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This program clears the screen and causes that dot 
to blink. Timing loops in lines 20 and 40 control the length 
of time the dot is on and off. 

See ASCII number list, in an earlier tip in this book, 
for other characters to display as a dot. We use 47 which 
appears as a “slash bar.”’ 


Program Listing 


10 HOME 

20 FOR L=1 TO 250:NEXT L 
30 POKE 1063,47 

40 FOR L=l TO 250:NEXT L 
50 GOTO 10 


99 Screen Full of Garbage 


Fill your video screen with @ square dots, starting 
from the upper left, moving down and across to the lower 
right. 

Push the RESET key to stop the action and regain 
control from the looping line 160. 


Program Listing 


1OO HOME 

110 FOR Y=1 TO 39 
120 FOR X=l1 TO 47 
130 PLOT Y,X 

140 NEXT X 

150 NEXT Y 

160 GOTO 160 


93 Create A Table 


This program generates a table of values, as a 
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demonsiration on how to set up a table on the video 
display. 

Subroutine lines 900 and 910 generate random 
numbers in the range of zero to 99. Lines 20 and 30 find 
how many times through the random number generator it 
takes to get a number greater than 50. The answer is 
stored in A. 

Lines 40 and 50 do it again and store the answer in B. 
Lines 60 and 70 do it and store in C. 

Line 10 prints the table heading and iine 100 displays 
the results. Line 110 causes the whole operation to repeat 
until you have a table of 20 lines on the screen. 


Program Listing 


5 HOME 
10 PRINT "A" ,"B","C'™:sPRINT 

20 GOSUB 900 

30 IF X>50 THEN A=A+1:GOTO 20 
40 GOSUB 900 

50 IF X>50 THEN B=B+1:GOTO 20 
60 GOSUB 900 

70 IF X>50 THEN C=C4+1:GOTO 20 
100 PRINT A,B,C:IF T=19 THEN END 
110 A=@:B=@6:C=@:T=T+1:GOTO 20 
120 END 

900 X=INT(LOO*(RND(1))) 

910 RETURN 


We use ASCII number 100 to quickly fill the video 
screen with dollar signs. They flash continuously. 

You may change the number 100 in line 30 to fill the 
screen with some other character. 

Use this program as an attention getter in a game or 
some other program. If you tie more program on the end, 
after line 40, use HOME in line 50 to clear the screen. 
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Program Listing 


10 HOME 

20 FOR L=1024 TO 2039 
30 POKE L,100 

40 NEXT L 


This program computes hourly wages for an office 
bookkeeper. We include it here as an example of how to 


design a nice output on your video screen. 


Your APPLE its a powerful tool and you should pre- 
sent results of its computations in the most eye-pleasing 


manner. 


On the input side, this program includes good title 
box and three brief questions. On the output side, it 


presents a well-organized chart. 


Program Listing 


HOME:PRINT CHRS(7) 
PRINT :PRINT 


PRINT XR KEK KKK KREKKKEKKEM 


PRINT"* HOURLY WAGES *" 


PRINT NXE KKK KKK KKEKK HK HEM 


PRINT :PRINT 


INPUT"EMPLOYEE'S NAME: '"sN 
PRINT CHRS(7) 
INPUT"HOURLY PAY RATE: "3P 
PRINT CHRS(7) 


INPUT"TOTAL NUMBER OF HOURS WORKED 


‘ "eH 
PRINT CHRS(7) 


IF H=40 OR H<40 THEN RH=H:0OH=@ 


:GOTO 300 
IF H>40 THEN OH=H-40:RH=40 
OP=1.5*P:PA=RH*P:PB=OH*OP 


— PY=PA+PB 


320 PY=INT(100*PY+.5)/100 


&00 HOME 

410 PRINT"EMPLOYEE:",NS 
420 PRINT 

430 PRINT"TOTAL HOURS:",H 
44Q PRINT 


450 PRINT"REGULAR HOURS:",RH 

460 PRINT"REGULAR RATE:","S"5P 
470 PRINT"TOTAL REGULAR:","S"5PA 
480 PRINT 

490 PRINT"OVERTIME HOURS:",0H 

500 PRINT"OVERTIME RATE:","S"30P 
510 PRINT"TOTAL OVERTIME:","S"5PB 
520 PRINT 

530 PRINT"GROSS PAY:","S"3PY 

600 FOR L=1 TO 6:PRINT:NEXT L 

610 PRINT"TO COMPUTE WAGES FOR A" 
620 PRINT"DIFFERENT EMPLOYEE, PRESS ANY KEY" 
630 GET KYS 

640 GOTO LO 


Sample Run 


HXEKKEX KH KKK KEKE KKK 
* HOURLY WAGES * 
KH KK KKK KKH KKK HHH 


\ 


EMPLOYEE'S NAME: 


JONES RIETURN 

HOURLY PAY RATE: 

5.00 RETURN 

TOTAL NUMBER OF HOURS WORKED: 
50 RETURN 


EMPLOYEE: JONES 
TOTAL HOURS: 50 
REGULAR HOURS: 40 
REGULAR RATE: $5 
TOTAL REGULAR: $200 
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OVERTIME HOURS: 10 
OVERTIME RATE: $7.5 
TOTAL OVERTIME: $75 


GROSS PAY: $2.75 


TO COMPUTE WAGES FOR A 
DIFFERENT EMPLOYEE, PRESS ANY KEY 


Message 


Think up a message of up to 34 characters and 
spaces. Type it into your APPLE in response to the re- 
quest here at line 110. 

The computer will highlight your message by center- 
ing it on the video screen. 

Use this handy centering program for titles and other 
important parts of longer programs. It makes a good 
subroutine. 


Program Listing 


100 HOME:CLEAR 
110 INPUT"NEW MESSAGE TO BE CENTERED: "3MS 
120 rHsLEN(NS) 

130 LTELM+4 

140 FOR L=l1 TO LT 

150 ASS=ASS4+"*" 

160 NEXT L 

170 P=(40-LT)/2 

180 HOME 

190 PRINT TAB(P) ASS 

200 PRINT TAB(P) "* "sMS3" ¥" 

210 PRINT TAB(P) ASS 

220 FOR L=1 TO 9:PRINT:NEXT L 

230 CLEAR:GOTO 110 


The computer can be made to take your message (of 
up to 34 characters and spaces) and center that message, 
and draw a box around it to highlight it. 

Line 10 asks for a word or words of up to 34 total 
characters and spaces. Lines 30-80 draw a box around it. 
Line 100 positions it at the bottom of the video screen. 
Lines 110 to 130 display it, in its box. 

At this point the computer waits for you to press any 
key (line 200). When you press a key on the keyboard, the 
program progresses to line 210. The entire message box 
is pushed up one line. 

Each key press pushes the box up one more line. 
Imagination! 


Program Listing 


10 HOME 

20 INPUT"MESSAGE TO BE BOXED "3;MS 
30 LM=LEN(MS) 

40 LT=LM+4 

50 FOR L=1 TO LT 

60 ASS=ASS4"*" 

70 NEXT L 

80 P=(40-LT)/2 

90 HOME ~ 
100 FOR L=1 TO 20:PRINT:NEXT L 
110 PRINT TAB(P) ASS 
120 PRINT TAB(P) "* "sMS3" x" 
200 GET KYS 

210 CALL -912 
220. GOTO 200 


Did you like the manual box mover? How about an 
automatic upward flight? 
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You give the computer the message (up to 34 spaces 
and characters) and it boxes it, centers, and locates it at 
the bottom of the screen. 

It automatically moves up toward the top of the 
screen. As it leaves the top of the screen, it starts over at 
the bottom, climbing again to the top. And on and on. 

The upward scrolling speed is controlled by the time- 
delay loop in line 220. To slow things down, increase the 
number 100 in line 220. To speed up the scroll upward, 
decrease the number 100 in line 220. 


Program Listing 


10 HOME 

20 INPUT "MESSAGE TO REPEAT";MS 
30 LM=LEN(MS) 

40 LT=LM+4 

50 FOR L=1 TO LT 

60 XQS=XQS4"*" 

70 NEXT L 

80 P=(40-LT)/2 

90 HOME 
100 FOR L=l1 TO 20:PRINT:NEXT L 
110 PRINT TAB(P) xaQs 
120 PRINT TAB(P) "* "sMSs" x" 
130 PRINT TAB(P) XQS 

200 FOR L=l TO 19 

210 CALL -912 

220 FOR LL=1 TO 100:NEXT LL 
230 NEXT L 

240 GOTO 930 


Here we have two versions of a one-line program. 
Either works alone. Both create large flashing blocks of 
characters on the APPLE video display. 

The first program covers the entire screen. The se- 
cond program only covers the top third of the screen. 
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First Program: 


10 FOR L=l1 TO 
sAS=AS4"¥" 
sNEXT L 
:PRINT AS 
:CLEAR 
:GOTO 20 


Second Program: 


10 FOR L=l1 TO 
sAS=AS4¥" 
:NEXT L 
> HOME 
:PRINT AS 
sCLEAR 
:GOTO 20 


240 


240 
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Odds & Ends 


100 Through a Looking Glass 


Why? We’ll leave that up to you. But it is important to 
know this can be done. 

LIST is in line 210. Running LIST within a program 
does not cause operations to cease as in some com- 
puters. Once again the APPLE is more versatile! 

Try it. It’s unusual. 


Program Listing 


1O HOME 

20 PRINT "TO RUN,PRESS R" 

30 INPUT "TO LIST, PRESS L"3;AS$ 
40 IF AS="R" THEN GOTO 100 

50 IF AS="L" THEN GOTO 200 

60 GOTO 20 
100 PRINT 
110 INPUT "TWO NUMBERS ARE "3X,Y 
120 PRINT "FIRST DIVIDED BY SECOND = " 

-X/V 

130 PRINT 
140 GOTO 20 

200 PRINT 
210 LIST 
220 PRINT 
230 GOTO 20 


7 O1 List Breaker 


Sometimes it’s convenient to place several programs at 
higher line numbers for “storage.’”’ Lower line numbers 
then are free for new uses. 

For ease in sorting out the programs later, we inseri a 
breaker between the programs. Use REM and 25 


asterisks on each of two lines as we show in our sample 
program here. See lines 5470 and 5480. 
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Later, when you LIST and are scanning down the 
lines, you can spot your breaker lines of asterisks. 


By the way, these program lines 5440-5510 will not run 
as a stand-alone program. They are for display purposes 
only. 


Program Listing 


5440 P=5:Q=55:X=11:Y=22 
5450 PRINT Q/P 
5460 PRINT Y/X 


5470 REM %X KX KK KKK KKK KKH KKK KH KH KKK 
5480 REM KX KH K KX HK KEKE KKH KKHHKKKKK 


5490 HOME 

5500 FOR L=1 TO 1000 
5510 PRINT L 

5520 NEXT L 


1 02 Memory Review 


This useful program examines a range of memory 
locations you specify and reports what it finds there. It 
displays the memory location number alongside the con- 
tents, for convenience. 


Program Listing 


10 HOME 
20 PRINT TAB(5)"MEMORY REVIEW" 
30 PRINT:PRINT"SEARCH FOR CONTENTS FROM" 
40 INPUT"LOW MEMORY LOCATION NUMBER 
> "stM 
50 INPUT"TO HIGH MEMORY LOCATION NUMBER 
> "3sHM 
60 PRINT:PRINT"FAST SPEED","PRESS F" 
70 PRINT"SLOW SPEED","PRESS 5" 
80 GET KYS 
90 IF KYS="F" THEN SP=50:GOTO 120 
100 IF KYS="S" THEN SP=500:GOTO 120 
110 GOTO 80 
120 HOME:PRINT"MEMORY", "CONTENT", "VALUE" 
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130 FOR L=LM TO HM 

140 FOR T=1 TO SP:NEXT T 

150 PK=PEEK(L) 

160 PRINT L,PK,CHRS(PK) 

170 NEXT L 

200 FOR L=1 TO 5:PRINT:NEXT L 

210 PRINT"END OF RUN" 

220 PRINT"FOR MORE, PRESS ANY KEY" 
230 GET KYS 

240 CLEAR:GOTO 10 


1 03 Wipeout! 


Warning: handle with care! 

Careless operation of this program can cause you a lot 
of extra work. 

Key in the program. Run it. When it asks for the 
password, be sure to give it what it wants or it will erase 
itself. That’s right, the entire contents of program memory 
down the tubes! 

Here’s how it works: 

The password, inthis case Tracey , is asked by line 20. 
You give it a password. In line 30, your answer is com- 
pared to the true password. If correct, action goes to line 
50. If incorrect, the program goes to line 40. 

The NEW statement in line 40 erases everything from 
program memory. 

You can change the password in line 30 to any letters, 
numbers or keyboard symbols of your choice. Watch out 
when testing. A wrong password can cause a lot of retyp- 
ing. 


Program Listing 


10 HOME 

20 INPUT "WHAT IS THE PASSWORD ?";P$ 
30 IF PS="TRACEY" THEN GOTO 50 

40 NEW 

50 PRINT "CORRECT" 

60 PRINT "THE PASSWORD IS ";P$ 


Here is a handy list of all the words in Applesoft BASIC. The 
computer uses only one byte of memory space to store each 
full word of these instructions. That compares with one byte 
per character for other information you type into your 
APPLE. For example, the instruction RESTORE is stored all 
in one byte of memory while someone’s name, Jones, for 
instance, would take up five bytes of memory space. 


HCOLOR= 
HGR 
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INVERSE 


LEFT$ 
LEN 
LET 
LIST 
LOAD 
LOG 
LOMEM: 


MID$ 


NEW 
NEXT 
NORMAL 
NOT 
NOTRACE 


ON 
ONERR 
OR 


PDL 
PEEK 
PLOT 
POKE 
POP 
POS 
PRINT 
PR# 


READ 
RECALL 
REM 
RESTORE 
RESUME 
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RETURN 


The ampersand and XPLOT are not useful, generally. 
COLOR, HCOLOR, SCALE, SPEED and ROT must be 
followed immediately by an equal sign. SCRN, SPC and 
TAB must be followed immediately by a left parenthesis. 
HIMEM and LOMEM must be followed immediately by a 
colon. ATN must have no space between its letters. TO 
must not be preceded by the letter A or the computer will 
think you want AT. 
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Your APPLE will tell you what went wrong when you 
make a programming mistake. Here are the messages you 
might receive: 
2?CAN'T CONTINUE ERROR 


You are incorrectly trying to continue running a program 
after an error has occurred, or after a line has be 0 deleted 
or added to a program. Or the program does not exist. 


/ 


2DIVISION BY ZERO ERROR 


You can’t divide a number by zero as you are attempting. 


?7FORMULA TOO COMPLEX ERROR 

You are trying to use more than two IF/THEN instructions at 
once. 

7ILLEGAL DIRECT ERROR 


When you try to use your APPLE like a calculator, you are 
using it in the immediate execution mode. When you try to 
run a previousiy-entered program, you use the deferred 
execution mode. You cannot use the instructions INPUT, 
DEF FN, GET or DATA in the immediate mode. This error 
message says you are incorrectly trying to do that. 
2ILLEGAL QUANTITY ERROR 

You are trying to use a number beyond the range of ability of 
your APPLE. 

2NEXT WITHOUT FOR ERROR 


Your NEXT has no matching FOR. 


2?0UT OF DATA ERROR 
You are trying to READ but all DATA has been used. 
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2?0UT OF MEMORY ERROR 


Your program is too large. Or you have used too many 
variables. Or your loops or subroutines nesting is too 
complex for the APPLE to handle. 

2?0VERFLOW ERROR 


The result of a computation is just too large for the APPLE. 


?REDIM’D ARRAY ERROR 

You are trying incorrectly to redimension an array you 
already have dimensioned. 

?RETURN WITHOUT GOSUB ERROR 


You are trying to use the RETURN instruction but you didn't 
GOSUB in the first place. RETURN must always be 
associated with a GOSUB instruction. 

2STRING TOO LONG ERROR 


You are trying to create a string of more than 255 characters 


?BAD SUBSCRIPT ERROR 

You are trying to use an array bigger than the dimension you 
previously set. 

2SYNTAX ERROR 

You are not using BASIC.correctly. Your punctuation or 
letters or symbols are wrong. 

?TYPE MISMATCH ERROR 


You're trying to match apples with oranges. You are trying 
to mix numeric and string variables. The computer is 
looking for a numeric value and you are giving it a string or 
else it wants a string and you are giving it a numeric value. 


?UNDEF’D STATEMENT ERROR - 


You are trying to jump to a nonexistent line. Check your 
GOTO, GOSUB or THEN instruction. 
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?UNDEF’D FUNCTION ERROR 


You are trying to use a “user defined” function but you 
haven't previously defined such a function. 
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books from ARCsoft Publishers 


For the TRS-80 PC-1, PC-2, Sharp PC-1211, PC-1500: 
99 Tips & Tricks for the New Pocket Computers (PC-2/PC-1500) 


128 pages $7.95 ISBN 0-86668-019-5 
101 Pocket Computer Programming Tips & Tricks 

128 pages $7.95 ISBN 0-86668-004-7 
Pocket Computer Programming Made Easy 

128 pages $8.95 ISBN 0-86668-009-8 
Murder In The Mansion and Other Computer Adventures 

96 pages $6.95 ISBN-0-86668-501-4 
50 Programs in BASIC for Home, School & Office 

96 pages $9.95 ISBN 0-86668-502-2 
50 MORE Programs in BASIC for Home, School & Office 

96 pages $9.95 ISBN 0-86668-003-9 
Pocket-BAS!IC Coding Form programming worksheet tablets 

40-sheet pad $2.95 ISBN 0-86668-801-3 


For the TRS-80 Color Computer: 
101 Color Computer Programming Tips & Tricks 


128 pages $7.95 ISBN 0-86668-007-1 
55 Color Computer Programs for Home, School & Office 

128 pages $9.95 ISBN 0-86668-005-5 
55 MORE Color Computer Programs for Home, School & Office 

112 pages $9.95 ISBN 0-86668-008-X 
Color Computer Graphics 

128 pages $9.95 ISBN 0-86668-01 2-8 
The Color Computer Songbook 

96 pages $7.95 ISBN 0-86668-01 1-X 
My Buttons Are Blue and Other Love Poems 

96 pages $4.95 ISBN 0-86668-01 3-6 
Color Computer BASIC Coding Form program worksheet tablets 

40-sheet pad $2.95 ISBN 0-86668-802-1 


For the APPLE Computer: 


101 APPLE Computer Programming Tips & Tricks 
128 pages $8.95 ISBN 0-86668-015-2 


33 New APPLE Computer Programs for Home, School & Office 
96 pages $8.95 ISBN 0-86668-016-0 


APPLE Computer BASIC Coding Form program worksheet tablets 
40-sheet pad $2.95 ISBN 0-86668-803-X 


For the ATARI 400 and 800 computers: 


101 ATARI! Computer Programming Tips & Tricks 
128 pages $8.95 ISBN 0-86668-022-5 


31 New ATARI Computer Programs for Home, School & Office 
96 pages $8.95 ISBN 0-86668-018-7 


ATARI Computer BASIC Coding Form program worksheet tablets 
40-sheet pad $2.95 ISBN 0-86668-806-4 
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books from ARCsoft Publishers 


For the Sinclair ZX-81 and TIMEX/Sinclair 1000 computers: 


101 TIMEX 1000 and Sinclair ZX-81 Programming Tips & Tricks 

128 pages $7.95 ISBN 0-86668-020-9 

37 TIMEX 1000 & Sinclair ZX-81 Programs for Home, School & Office 

96 pages $8.95 ISBN 0-86668-021-7 

TIMEX 1000 & Sinclair ZX-81 BASIC Coding Form program worksheets 

40-sheet pad $2.95 ISBN 0-86668-807-2 
\ 

For the electronics hobbyist: 

25 Quick-N-Easy Electronics Projects 


96 pages $4.95 ISBN 0-86668-023-3 
25 Electronics Projects for Beginners 

96 pages $4.95 ISBN 0-86668-017-9 
25 Easy-To-Build One-Night & Weekend Electronics Projects 
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101 APPLE Computer 
Programming Tips & Tricks 


by Fred White 


Here’s a mammoth collection of practical, useful, efficient 
programming techniques and operating shortcuts right out of a 
master programmer's notebook. Loaded with hints, secrets, 
shortcuts, tips, tricks and easy-to-follow instructions, this book 
tells you how to handle routine programming chores more 
quickly, do special effects, make your computer work for you — 
faster and more efficiently. 

Each of the 101 APPLE Computer programming tips and 
tricks in this book features a complete program which will run all 
by itself, or as part of a larger set of instructions. All 101 programs 
are tested and ready to type in and run. 

Learn insider's how-to secrets for using the exciting BASIC 
words, HOME, PEEK, CALL, INPUT, LEN, GOSUB, RETURN, 
READ, DATA, RESTORE, VAL, PRINT, DIM, LEFT$, CHR$, FOR, 
NEXT, TAB, POKE, HLIN, PLOT, SOUND, and all the rest. 

Sections in this book include fun & games, text on text, gee 
whiz, number crunching, business matters, graphics and odds & 
ends. Special techniques are here for graphics; sound from your 
APPLE; colorful program title and billboards; sound cues; poking 
and peeking into memory; searching, ordering, sorting and error 
trapping; making a custom cursor; secret messages; writing and 
playing games; batting averages; math flasher; ASCII character 
review; percentages; dollars and cents; decision maker; list 
breaker; random numbers; lookup table; killing time; three-digit 
mystery; news ticker; invoicing; passwords; and many more. 

You'll learn what to do, how to do it, when to make changes 
and when not to, all in this extensive info-packed APPLE 
computer programmer’s handbook of tips and tricks. 
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